ungetestet! 

Option Explicit

Public Sub FormatWorksheets()
  Dim wks As Excel.Worksheet
  For Each wks In ThisWorkbook.Worksheets
    Call HandleWorksheet(wks)
  Next
End Sub

Private Sub HandleWorksheet(Worksheet As Excel.Worksheet)
  
  If Worksheet.Name = "Info" Then
    Exit Sub
  End If
  
  Call DeleteRows(Worksheet)
  Call ConvertToSmartTable(Worksheet.Range("$A$1:$E$39"), "Tabelle" & Worksheet.Index)
  
End Sub

Private Sub ConvertToSmartTable(Range As Excel.Range, Name As String)
  Dim obj As Excel.ListObject
  Set obj = Range.Worksheet.ListObjects.Add(xlSrcRange, Range, , xlYes)
  obj.Name = Name
End Sub

Private Sub DeleteRows(Worksheet As Excel.Worksheet)
  Call Worksheet.Rows("1:17").Delete(xlShiftUp)
End Sub