Is there a better way (which I'm sure there is) of performing a simple
copy function as detailed below in a Macro I've recorded?

Thanks



Sub Macro1()

Sheets("Sheet1").Select
Range("C51:C57").Select
Selection.Copy
Sheets("Copy").Select
Range("C51:D57").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Sheet1").Select
Range("C62:C64").Select
Selection.Copy
Sheets("Copy").Select
Range("C62:D64").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
End Sub