Thanks Dave, whats the last piece "'remove marching ants?? (just don't
get the joke)

On Jan 25, 9:52 pm, Dave Peterson wrote:
Option Explicit
Sub Macro1()

workSheets("Sheet1").Range("C51:C57").Copy
workSheets("Copy").Range("C51:D51").PasteSpecial _
Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

workSheets("Sheet1").Range("C62:C64").Copy
workSheets("Copy").Range("C62:D62").PasteSpecial _
Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Application.cutcopymode = false 'remove marching ants

End Sub





Sean wrote:

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--

Dave Peterson- Hide quoted text -- Show quoted text -