Как избежать использования .Select и .Activate при создании таблицы?

Вероятно, проголосовали за то, что сказали это, но если это не сломалось, не чините это. Ваш код уже работает нормально, нет реальной причины его менять, если только он не работает или не появляются ошибки. Похоже, вы уже протестировали его.

Ваш код уже оптимизирован и быстрее, хотя вот альтернатива, чтобы избежать Select. Если вы получите ошибку 1004 с методами выбора, похожими на последнюю строку sht2.Range("A:I").Copy Columns(last_col + 1).PasteSpecial в приведенном ниже коде, она все равно продолжится.

Sub test()

    Dim wb1 As Excel.Workbook
    Set wb1 = Workbooks("XXX.XLSM")                ' from here, use wb1 to refer to fua.xlsm

    Dim wb2 As Excel.Workbook                      ' ditto for wb2
    Set wb2 = Workbooks.Open("C:\Users\Ha.csv")

    Dim sht1 As Worksheet                          ' ditto for sht1
    Set sht1 = wb1.Sheets("Sheet1")

    Dim sht2 As Worksheet
     Set sht2 = wb2.Sheets("Ha")

    If Application.WorksheetFunction.CountA(sht1.Cells) <> 0 Then

        LastRow = sht1.Cells.Find( _
                        What:="*", _
                        After:=sht1.Range("A1"), _
                        Lookat:=xlPart, _
                        LookIn:=xlFormulas, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlPrevious, _
                        MatchCase:=False).row
    Else
        LastRow = 1
    End If




  sht1.ListObjects.Add(xlSrcRange, sht1.Range("A:I"), xlYes).Name = "Table1"





    sht1.ListObjects("Table1").Range.AutoFilter _
                Field:=9, _
                Criteria1:=">=-1000000000000", _
                Operator:=xlAnd, _
                Criteria2:="<=1000000000000000"

    Application.DisplayAlerts = False          ' not sure if needed



      sht1.Range("A:I").SpecialCells(xlCellTypeVisible).Copy

    On Error Resume Next
   sht2.Range("A:I").Copy Columns(last_col + 1).PasteSpecial
    On Error Resume Next
    Application.DisplayAlerts = True           ' not sure if needed

    wb2.Save                                   ' already C:\Users\Ha.csv
    wb2.Close

End Sub

Вот ваш код, переписанный.
Я думаю, что он имеет ту же функциональность.

Sub test()

    Dim wb1 As Excel.Workbook
    Set wb1 = Workbooks("FUA.XLSM")                ' from here, use wb1 to refer to fua.xlsm

    Dim wb2 As Excel.Workbook                      ' ditto for wb2
    Set wb2 = Workbooks.Open("C:\Users\Ha.csv")

    Dim sht1 As Worksheet                          ' ditto for sht1
    Set sht1 = wb1.Sheets("Sheet1")

    If Application.WorksheetFunction.CountA(sht1.Cells) <> 0 Then

        LastRow = sht1.Cells.Find( _
                        What:="*", _
                        After:=sht1.Range("A1"), _
                        Lookat:=xlPart, _
                        LookIn:=xlFormulas, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlPrevious, _
                        MatchCase:=False).Row
    Else
        LastRow = 1
    End If

    sht1.ListObjects.Add(xlSrcRange, sht1.Range("AA3"), xlYes).Name = "Table1"

    sht1.ListObjects("Table1").Range.AutoFilter _
                Field:=9, _
                Criteria1:=">=-1000000000000", _
                Operator:=xlAnd, _
                Criteria2:="<=1000000000000000"

    Application.DisplayAlerts = False          ' not sure if needed

    Range("Table1[#All]").SpecialCells(xlCellTypeVisible).Copy sht2.Cells

    Application.DisplayAlerts = True           ' not sure if needed

    wb2.Save                                   ' already C:\Users\Ha.csv
    wb2.Close

End Sub

Я бы даже не стал использовать VBA для получения данных, использовать Power Query и импортировать данные из исходного файла, выполнить фильтрацию в запросе и вернуть результат в таблицу в книге «FUA».

Затем запрос можно настроить на автоматическое обновление при открытии книги «FUA» или в определении запроса.