try changing

Sheets("ACTIVE").Range("a2").EntireRow.Copy
dst_sheet.Paste Destination:=dst_sheet.Cells(2, 1)

to

Sheets("ACTIVE").Range("a2").EntireRow.Copy _
Destination:=dst_sheet.rows(2)

--
Regards,
Tom Ogilvy


"David Gerstman" wrote:

I've copied some information - actually filtered data - from a source
worksheet (src or "ACTIVE"). Below I write that to a newly created
destination worksheet (dst).

Afterwards I need to copy a row with header information from src to dst.
However when I to this, Row 2 in dst disappears. (dst appear with row 1 and
then row 3.) What am I doing wrong?

Set dst_sheet = Worksheets.Add
ActiveSheet.Paste
Selection.Columns.AutoFit

dst_sheet.Activate
Range("a2").Select
Selection.EntireRow.Insert

Sheets("ACTIVE").Range("a2").EntireRow.Copy
dst_sheet.Paste Destination:=dst_sheet.Cells(2, 1)