如下VBA 语句,能否再简?Sheets("sheet2").Range("a6:c6,e6:g6,i6:k6")可以赋

如下VBA 语句,能否再简?Sheets("sheet2").Range("a6:c6,e6:g6,i6:k6")可以赋给一个变量吗?
Sub kk()
Sheets("sheet2").Range("a6:c6,e6:g6,i6:k6").Copy Sheets("sheet2").Range("a10:i10")
ary = Sheets("sheet2").Range("a10:i10")
Sheets("sheet1").Cells(1,1).Resize(UBound(ary,2),UBound(ary)) = Application.Transpose(ary)
Sheets("sheet2").Range("a10:i10").ClearContents
End Sub