past special VBA

[jtodd]

Hi
can anyone show me how to change this macro to paste values and formats but not formulas.

Sub CopyStuff()

Range("AA4:AD34").Copy

Sheets("SummaryData").Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial xlPasteValues

End Sub

if i try and add more than 1 pastespecial it comes up with errors ??

 

[bobsan42]

.PasteSpecial xlPasteFormats+xlPasteValues

 

[jtodd]

Thanks for you quick reply , I have tried this but get the debug message ?

 

[MARK858]

Try

With Sheets("SummaryData").Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
  .PasteSpecial xlPasteValues
  .PasteSpecial xlPasteFormats
End With

 

[jtodd]

Again thanks for your quick reply but again i get a debug message , the first pastespecial is highligted .

 

[bobsan42]

and what is the error message ???

 

[jtodd]

Sorry , i have just tried again and it works fine , user error.

Many thanks for your help