Using macro to do same task with different cells

[abber05]

I m new to Excel VBA, i have a worksheet in which i want to select
cells in a coloumn and then paste in a row. Then i again want to copy
next cells and paste then in next row. I m trying to use DO UNTI
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" erro
appeared. I think there is some problem in the way i am selecting th
cell range, any soln

 

[Baapi]

Try this

Sub copypaste1()
Dim K as Integer, I as Integer
For i = 1 To 1520
Do
K = (I + 8) + (6 * (I - 1)) '' k=9,16,23,30
Range(Cells(K,2),Cells(K+6,2)).Select
Selection.Copy
Cells(I+6, 6).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Loop Until i = 1520
Next
End Sub

 

[abber05]

Little modification still required,
I have to remove DO UNTIL loop and then it starts working
anyhow, Thanks