Multiple Columns Copied - VBA

[mattbarb]

Hi,

Im trying to copy over a number of columns to other columns using a VBA. I tried adapting a script i found but it's not working, any help would be really appreciated:

Sub PasteSpecial_ValuesOnly()
'PURPOSE: How To Paste Values Only With PasteSpecial
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault
  
   
'Copy A Range of Data
  Worksheets("Plan").Range("J16:J37").Copy
  Worksheets("Plan").Range("P16:P37").Copy
  
'PasteSpecial Values Only
  Worksheets("Plan").Range("M16:M37").PasteSpecial Paste:=xlPasteValues
  Worksheets("Plan").Range("S16:S37").PasteSpecial Paste:=xlPasteValues
  
'Clear Clipboard (removes "marching ants" around your original data set)
  Application.CutCopyMode = False
  
End Sub

Many thanks!

 

[Fluff]

Glad to hear that & thanks for the feedback