Hi,

I am trying to copy a range of cells (A1:C3)
from Sheet 1 to Sheet 2
The code below doesn't work, can anyone assist,
Thanks

Sub cop()
Dim i, j
For i = 1 To 3
For j = 1 To 3

Sheets("Sheet1").Cells(i, j).Copy
Sheets("Sheet2").Paste Cells(i, j)

Next
Next

End Sub