S
Sean
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("C5157").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Sheet1").Select
Range("C62:C64").Select
Selection.Copy
Sheets("Copy").Select
Range("C6264").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
End Sub
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("C5157").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Sheet1").Select
Range("C62:C64").Select
Selection.Copy
Sheets("Copy").Select
Range("C6264").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
End Sub