More efficient code advice needed
 

Hi - I've been writing code in what I'm sure is an inefficient way -- can
someone just tell me what the recommended way would be to re-write the
following code? Thanks!

Sheets("Data for Graphs").Select
Columns("D:H").Select
Selection.Copy

Sheets("Copy of Data for Graphs").Select
Columns("J:N").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

More efficient code advice needed
 

Worksheets("Data for Graphs").Columns("D:H").Copy

Worksheets("Copy of Data for Graphs").Select
Range("J1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:=False, Transpose:=False
Application.CutCopyMode = False


--
HTH

Bob Phillips

"Linking to specific cells in pivot table"
crosoft.com wrote in
message ...
Hi - I've been writing code in what I'm sure is an inefficient way -- can
someone just tell me what the recommended way would be to re-write the
following code? Thanks!

Sheets("Data for Graphs").Select
Columns("D:H").Select
Selection.Copy

Sheets("Copy of Data for Graphs").Select
Columns("J:N").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:=False, Transpose:=False

More efficient code advice needed
 

Thanks Bob!!

"Bob Phillips" wrote:

Worksheets("Data for Graphs").Columns("D:H").Copy

Worksheets("Copy of Data for Graphs").Select
Range("J1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:=False, Transpose:=False
Application.CutCopyMode = False


--
HTH

Bob Phillips

"Linking to specific cells in pivot table"
crosoft.com wrote in
message ...
Hi - I've been writing code in what I'm sure is an inefficient way -- can
someone just tell me what the recommended way would be to re-write the
following code? Thanks!

Sheets("Data for Graphs").Select
Columns("D:H").Select
Selection.Copy

Sheets("Copy of Data for Graphs").Select
Columns("J:N").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:=False, Transpose:=False