I am running the following macro and it returns a Range
Selection Global error when it gets to "Range("A(i):C
(j)").Select". What am i doing wrong?

Pingger

Dim i As Integer, j As Integer, k As Integer
i = i + 1
j = j + 1
k = k + 1
j = j + 21

Do While j < 1100
Range("A(i):C(j)").Select
Selection.Copy
Range("F(k)").Select
Selection.PasteSpecial
Paste:=xlValues,Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
i = j + 1
j = i + 21
k = k + 3
Loop

End Sub