Does this work :
Code:
Ass_Num = Intersect(acrow, tblColumns("Asset" & Chr(10) & "Number").Range)
Sheets("backup").Select
With ActiveSheet
.ListObjects("Customers").Range.AutoFilter Field:=6, Criteria1:=Ass_Num ' filters rows, but the table looses the focus
Columns(1).Cells.SpecialCells(xlCellTypeVisible).Cells(1).Select
End With