I m new to Excel VBA, i have a worksheet in which i want to select 7 cells in a coloumn and then paste in a row. Then i again want to copy 7 next cells and paste then in next row. I m trying to use DO UNTIL LOOP, and using following code
Sub copypaste1()
1 Dim k,i
2 For i = 1 To 1520
3 Do Until i = 1520
4 k = (i + 8) + (6 * (i - 1)) '' k=9,16,23,30
5 Range("B(k):B(k+6)").Select
6 Selection.Copy
7 Range("F(i+6)").Select
8 Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
9 Loop
10 Next
End Sub
but at line 5, "Method 'Range' of object '_Global' failed" error appeared. I think there is some problem in the way i am selecting the cell range, any soln?
Bookmarks