copy and paste error
Could someone help me with why I get an error when I run this simple code to
copy and paste... THANKS!
Sheets("DATA").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("dump").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Sheets("dump").Cells("A2").PasteSpecial xlPasteValues
Range("A2").Select
End Sub
|