Copy Unknown range After autofilter

[mattd4385]

I want to copy and Unknown range After autofilter.

the data is only in col A:F
row A is a header that was used to filter but I Do Not want to copy it.

 

[Trevor G]

Matt does this mean you have a working solution then?

Take a look at this sample

Sub cpy()
Dim LR As Long, i As Long
With Sheets("Sheet1")
LR = .Range("F" & Rows.Count).End(xlUp).Row
For i = 1 To LR
If .Range("K" & i).Value <> "" Then .Rows(i).Copy Destination:=Sheets("Next Sheet Name").Range("A" & Rows.Count).End(xlUp).Offset(1)
Next i
End With
End Sub

 

[mattd4385]

For anyone who need the code I Got it to work.

With ActiveSheet
.AutoFilterMode = False
'Filter data by BFN-500
With Range("F1", Range("F" & Rows.Count).End(xlUp))
.AutoFilter 1, "*BFN-500*"
On Error Resume Next
'Select the data tp be Copied
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:E" & lastrow).SpecialCells(xlCellTypeVisible).Copy

Sheets("BFN-500").Select
'find empty the next cell in cal A and paste data
Set FirstBlankCell = Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
FirstBlankCell.Activate
'paste data
ActiveSheet.Paste
End With

.AutoFilterMode = False
End With