Excel VBA copying a filtered selection

Question

I have the following code that filters a column a pastes it in another worksheet

 Sub FilterData()
 Dim rlow As Long, erow As Long, erow2 As Long
 Dim av As Variant, bv As Variant
 Dim p As Long, q As Long

 lrow = Sheet3.Cells(Rows.Count, 1).End(xlUp).Row     
 Worksheets("Wire list").Range("E1").AutoFilter _
 Field:=5, _
 Criteria1:="=S*", _
 VisibleDropDown:=False

 For q = 2 To lrow
      Sheet3.Cells(q, 5).Copy
      erow2 = Sheet2.Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Row
      Sheet1.Paste Destination:=Worksheets("Sheet2").Cells(erow2, 5)
 Next q

 End Sub

The problem is that the cells that are being copied are the ones defined by q, but I want to copy the autofiltered selection. Any suggestions?

thanks!