Hi

I made a macro for copying only visible cells in filter and it is copying entire bunch but i need first 4 cells to copy after header and paste into new sheet.

I just gave how result should be in the same sheet.
[CODE]Sub Macro12()

Dim Rng As Range
Selection.AutoFilter Field:=5, Criteria1:="A"
Set Rng = Cells.SpecialCells(xlCellTypeVisible)
Rng.Copy Destination:=Sheets("Sheet15").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

Selection.AutoFilter Field:=5, Criteria1:="A"
LR = Cells(Rows.Count, 1).End(xlUp).Row
Rows("2:" & LR).Copy Destination:=Sheets("Sheet15").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)



End Sub[CODE]
Please help.

Thanks
Sunil