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

[jazz2409]

Change to:

  For hr = StartTime To EndTime + 0.0001 Step 1 / 24

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

You've removed the penultimate line:
If Not LastTable Is Nothing Then LastTable.Unlist
which means that the last table created remains a listobject (Excel Table).

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

?