Filtering Using VBA, can get rid of first row

[Stevep4]

I have the below code that goes to sheet OnOrder, filters for the data in cells F2 and A2 in the HOME tab and then copies that data and pastes in into cell AU17 in the APR tab. The problem is that when it pastes the data it's taking exactly what I need AND the first row. In this case row 2. So if I want various rows based on my criteria, I can get them but they also include row 2. Is there any way I can just grab what I want. Basically, it's looking at the first row, filtering, and then pulling in that first row along with everything else.

Sub SaveDatatoMonthA2()
 Worksheets("HOME").Activate
Dim wkb1 As Workbook
Dim sht1 As Worksheet
Dim sht2 As Worksheet
Set wkb1 = ThisWorkbook
Set sht1 = wkb1.Sheets("OnOrder")
Set sht2 = wkb1.Sheets("APR")
'sht2.Range("A2:AF150000").ClearContents
With sht1.Range("a2:r90000")
   .AutoFilter Field:=2, Criteria1:=[F2]
  .AutoFilter Field:=6, Criteria1:=[A2]
    .SpecialCells(xlCellTypeVisible).Copy Destination:=sht2.Range("AU17")
    .AutoFilter
End With
End Su

Thanks

 

[Fluff]

How about

.AutoFilter.Range.Offset(1).Copy Destination:=sht2.Range("AU17")

 

[Stevep4]

How about

.AutoFilter.Range.Offset(1).Copy Destination:=sht2.Range("AU17")

Thanks. Wouldn't it need to look for visible cells? I'm getting an error when I plug that code in.

 

[Fluff]

Wouldn't it need to look for visible cells?

Nope.

I'm getting an error when I plug that code in

What error?