VBA loop

Private Sub CommandButton1_Click()
    Dim customerBook As Workbook
    Dim filter As String
    Dim caption As String
    Dim customerFilename As Variant
    Dim customerWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim targetSheet As Worksheet
    Dim sourceSheet As Worksheet

    Set targetWorkbook = Application.ActiveWorkbook

    Application.ScreenUpdating = False
    caption = "Kies het bestand! "
    customerFilename = Application.GetOpenFilename(filter, , caption)
    If TypeName(customerFilename) <> "Boolean" Then
        Set customerWorkbook = Application.Workbooks.Open(CStr(customerFilename))

        Set targetSheet = targetWorkbook.Worksheets.Add
        Set sourceSheet = customerWorkbook.Worksheets(2)

        sourceSheet.Range("A1", "M1000").Copy targetSheet.Range("A1", "M1000")
        Application.ScreenUpdating = True
        customerWorkbook.Close
    End If
End Sub

Sub Tabel()
'
' Tabel Macro
'

'
    sheets("Blad1").Select
    Range("Tabel_Query_van_Excel_Files[#All]").Select
    ActiveSheet.ListObjects("Tabel_Query_van_Excel_Files").Range.AutoFilter Field _
        :=2, Criteria1:="3000"
    ActiveSheet.ListObjects("Tabel_Query_van_Excel_Files").TableStyle = _
        "TableStyleLight1"
    Range("Tabel_Query_van_Excel_Files[#All]").Select
    ActiveSheet.ListObjects("Tabel_Query_van_Excel_Files").Resize Range( _
        "$A$1:$O$435")
    Range("Tabel_Query_van_Excel_Files[[#Headers],[Kolom1]]").Select
    ActiveCell.FormulaR1C1 = "Verklaringen"
    Range("Tabel_Query_van_Excel_Files[[#Headers],[Kolom2]]").Select
    ActiveCell.FormulaR1C1 = "Acties"
    Range("O59").Select
    
    
End Sub

Sub Tabel()
   For Each sh In ThisWorkbook.Worksheets                            'alle werkbladen aflopen
      With sh                                                        'in je blad
         On Error Resume Next                                        'doorgaan bij fout
         naam = ""                                                   'reset naam
         naam = .Range("A1").ListObject.Name                         'wat is de naam van de tabel in A1
         On Error GoTo 0
         
         If Len(naam) = 0 Then                                       'heeft geen naam, dus is nog geen tabel
            Set LO = .ListObjects.Add(xlSrcRange, .Range("A1").CurrentRegion, , xlYes)   'maak van de gegevens rond A1 een tabel, mag natuurlijk op dat ogenblik geen overlap met een andere tabel zijn !!!
            With LO                                                  'met die tabel
               .Range.AutoFilter 2, "3000"                           'filteren
               .TableStyle = "TableStyleLight1"                      'opmaak van je tabel
               .HeaderRowRange.Cells(1, 1).Resize(, 2).Value = Array("Verklaringen", "Acties")   'aanpassingen in de koprij
            End With
         End If
      
      End With
   Next
End Sub