Copy first 25 rows from visible rows after filter using VBA

I'm stuck with something in one of the projects.

How do I copy first 25 rows from all the visible rows after I've applied filter on one of the columns. Currently it is copying all the visible range.

With xlSheet
    .AutoFilterMode = False
    With xlApp.Worksheets("source").Range("A1:G1000")
        .AutoFilter Field:=5, Criteria1:="x1"
        .SpecialCells(xlCellTypeVisible).Copy
    End With
End With

Then I change the filter to x2 and want to copy first 25 rows for that filter and so on.

Thanks in advance