I ran your code and it worked exactly as I expected it to:

Sub eee()
Worksheets("Active").Range("A1").CurrentRegion.Cop y
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)

End Sub

So I can't say what might be causing you to get results you don't expect.

--
Regards,
Tom Ogilvy


"David Gerstman" wrote:

Row 2, the empty row, appears to have been deleted. Normally the rows beneath
would have been renamed 2..., but that didn't happen here.

There's Row1 with the info copied there. And rows 3+ with the info copied
there. And the empty row 2 is nowhere to be found.

David

"Tom Ogilvy" wrote:

On the destination sheet,
You select A2 and insert a row.

that leaves the previously copied data in row 1 still in row1 and the other
data that was in rows 2 and down is now in rows 3 and down.

the code then copies whatever is in row 2 of a sheet named "Active" to row2
of the destination sheet.

In that context,
I guess you would have to explain what you mean by disappears.

--
Regards,
Tom Ogilvy




"David Gerstman" wrote:

Thank you but the same thing happens.

David

"Tom Ogilvy" wrote:

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)