Is there a Better way Q

  • Thread starter Thread starter Sean
  • Start date Start date
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("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
 
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
 
Not a joke.

Select a range (b3:C9 say)
edit|copy

You'll see that marquee effect around the copied cells.
 
Back
Top