Creating Multiple Tables Using Loop in VBA. I still want to add new sheets and add

[p45cal]

Worked like a charm
We're using GMT. Is there a need to change anything for that?

I have no idea.

Do I add this after

Next cll
If Not NewSht Is Nothing Then NewSht.Columns("B:B").EntireColumn.AutoFit
If Not LastTable Is Nothing Then LastTable.Unlist
End Sub

?

Yes