オートフィルタで抽出した行を、他のシートにコピーするサンプルです。
上段は表示行を１行ずつ取り出してコピーしていますが、下段は RangeオブジェクトのCurrentRegionプロパティが、現在表示されているセルを操作対象とするので、そのままコピーしている例です。

Public Sub Sample_1()
'行を個別にコピー

    Dim rC As Range
    Dim psRow As Long
    
    
    psRow = 1
    For Each rC In Sheet1.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible)
        If rC.Row > 1 Then
            Sheet2.Range("A" & psRow & ":C" & psRow).Value = Sheet1.Range("A" & rC.Row & ":C" & rC.Row).Value
            psRow = psRow + 1
        End If
    Next rC
    
End Sub

Public Sub Sample_2()
'CurrentRegionプロパティでコピー

    With Range("A1")
        .AutoFilter Field:=1, Criteria1:=">20"
        .CurrentRegion.Copy Sheet2.Range("A1")
        .AutoFilter
    End With

End Sub