Change your sub to be something like
Sub CleanTheTable(sheetNo As Integer)
Application.ScreenUpdating = False
Sheets(sheetNo).Select
ActiveSheet.ListObjects("ActiveRoster").HeaderRowRange.Select
If ActiveSheet.FilterMode Then
Selection.AutoFilter
End If
Dim tbl As ListObject
For Each tbl In Worksheets(sheetNo).ListObjects
.Range.AutoFilter
On Error Resume Next
.DataBodyRange.Offset(1).Resize(.DataBodyRange.Rows.Count - 1, .DataBodyRange.Columns.Count).Rows.Delete
.DataBodyRange.Rows(1).SpecialCells(xlCellTypeConstants).ClearContents
ActiveWindow.SmallScroll Down:=-10000
Next
Application.ScreenUpdating = True
End Sub
Then you can call it for all sheets similar to
Public Sub CleanAll()
Dim i As Integer
For i = 1 To Sheets.Count
CleanTheTable i
Next
End Sub
Caveat - I haven't fully tested this so there may be some minor typing errors