Create table for all worksheets

This will loop through the sheets and create the tables, the 2nd code will loop through the sheets and remove the tables.

Sub MakeTables()

    Dim sh As Worksheet
    Dim LstRw As Long

    For Each sh In Sheets
        With sh
            LstRw = .Cells(.Rows.Count, "A").End(xlUp).Row
            .ListObjects.Add(xlSrcRange, .Range("$A$1:$B$" & LstRw), , xlYes).Name = "Table" & sh.Name
        End With
    Next sh

End Sub
Sub RemoveTables()
    Dim sh As Worksheet

    For Each sh In Sheets
        With sh
            .ListObjects("Table" & sh.Name).Unlist
        End With
    Next sh


End Sub