when you clear you range, you probably also empty the clipboard. Try
changing the order.

Sheets("dump").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Sheets("DATA").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("dump").Select
Sheets("dump").Cells("A2").PasteSpecial xlPasteValues
Range("A2").Select
End Sub

Sub CopyDate
dim rng as Range, rng1 as Range
set rng = Sheets("dump").Range("A2").currentRegion
if rng.row = 1 then
rng.Offset(1,0).Resize(rng.rows.count-1) _
.ClearContents
end if
set rng1 = Sheets("Data").Range("A2").CurrentRegion
if rng1.row = 1 then
set rng1 = rng1.Offset(1,0).Resize(rng1.rows.count-1)
end if
rng1.copy
rng(1).PasteSpecial xlValues
End Sub

--
Regards,
Tom Ogilvy


"John" wrote in message
...
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