VBA Select columns of visible rows from filtered table into another sheet - excel

Question

I wanted to add the following: After having sorted the Table I apply a Filter on it. I only require the information of 2 columns of the visible rows. and want to copy that inforation to another sheet.
This is what I have got so far but I am not able to selected the visible Rows from the filtered table.
And here is an image of the filtered Data. I need the data of Column "A" and "H" without the Header
I tried selecting the range of the ActiveSheets Listobject with the SpecialCellValue parameter but i couldnt figure out how to grab it.
Sub TabelleEinzeln()
Dim rep As Long
Dim table_name As String
Dim outcome_KW As String
For rep = Range("O4").Value To Range("P4").Value
Dim SortOrder As Integer
Dim sheet_name As String
sheet_name = Sheets("Admin").Range("H" & rep).Value
table_name = Sheets("Admin").Range("I" & rep).Value
outcome_KW = Sheets("Admin").Range("L" & rep).Value
Sheets(sheet_name).Select
Dim lo As ListObject
Set lo = ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$8:$K$2276"), , xlYes)
' Example how to sort
With lo.Sort
.SortFields.Clear
.SortFields.Add Key:=lo.DataBodyRange.Columns(1), SortOn:=xlSortOnValues, Order:=xlAscending
.Header = xlYes
.Apply
End With
'Top 5 höchsten Werte und sortiert
lo.Range.AutoFilter Field:=8, Criteria1:= _
"5", Operator:=xlTop10Items
'Here i want to selected the filtered outcome and past it to the new sheet
'.Copy Sheets("KW_Bericht_Report").Range("outcome_KW")
Next rep
Sheets("Admin").Select
MsgBox ("Tables have been created for every imported sheet")
End Sub