Copying Range from 1 sheet to next

[Guest]

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

 

[Norman Jones]

Hi Teresa,

Try:

Sheets("Sheet1").Range("A1:C3").Copy Sheets("Sheet2").Range("A1")

 

[Tom Ogilvy]

Worksheets("Sheet1").Range("A1:C3").Copy _
Destination:=Worksheets("Sheet2").Range("A1")

 

[Guest]

Thanks a lot guys - you've been very helpful

Worksheets("Sheet1").Range("A1:C3").Copy _
Destination:=Worksheets("Sheet2").Range("A1")