Substract the header from the selection

[Ossian13]

Hello guys,

as the title says, how is it possible to substract the header from my selection?
A brief intro in what i want to do:I have a list of data and i have a column with the Status (closed,pending,approved , etc). I have filtered all rows which have the status closed and i want to copy only the visible cells to another sheet. All safe and sound, after i copy the selection i want to remove the rows with the status ,,closed,, but i want the header to remain there.

ActiveSheet.Range("$L$1:$L$8000").AutoFilter Field:=1, Criteria1:= _
    "=*Closed*", Operator:=xlAnd
    Cells.Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Worksheets("Closed").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Selection.ColumnWidth = 13.33

this code copies all the rows with the status selected and copies them on the sheet with the name ,,Closed,,
Going back to my source sheet, i want to remove those with the status closed but without the header. Any suggestions?

Regards,
Ossian.

 

[Fluff]

How about

ActiveSheet.Range("$L$1:$L$8000").AutoFilter Field:=1, Criteria1:= _
    "=*Closed*", Operator:=xlAnd
    Cells.Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy Worksheets("Closed").Range("A1")
    Selection.Offset(1).Delete
    Selection.ColumnWidth = 13.33

 

[Ossian13]

Ya man it works! Thank you for your kind effort to reply! Have a good one!

 

[Fluff]

Glad to help & thanks for the feedback