Yup - don't know what happened. Thanks for completing the code,
Dave.

In article ,
Dave Peterson wrote:

I think J.E.'s code got truncated somehow:

With Worksheets("Sheet1")
.Range("A1:M" & .Range("A" & Rows.Count).End(xlUp).Row).Copy _
Destination:=Worksheets("Sheet2").Range("A" & _
Rows.Count).End(xlUp).Offset(1, 0)
End With

Might be what he really meant.