Want to copy only fist and second row after applying autofilter in VBA if data is available after autofilter

[Arif_Tamboli]

I want to copy only first and second row after applying autofilter in VBA.
My code
row_no = ThisWorkbook.Sheets("Agent List").Range("B" & Application.Rows.Count).End(xlUp).Row
For I = 3 To row_no
AGENTNAME = ThisWorkbook.Sheets("Agent List").Cells(I, 2).Value
ThisWorkbook.Sheets("Main Data").Activate
ThisWorkbook.Sheets("Main Data").Range("A1:J1").AutoFilter Field:=7, Criteria1:=AGENTNAME
On Error Resume Next
below mentioned line code is copying all the visible rows
ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Areas(2).Copy
I don't want that
just want first and second visible row if data is available

 

[Arif_Tamboli]

Thanks for your help

 

[Dryver14]

Your welcome. I do hope it helped, I am sure someone will jump in and let you know how to do it directly from the filter.

I personally will study the process more so I can give better advice in the future