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

[p45cal]

Your formulae don't take into account Lob and SubLob!
They will be considerably longer. In a bid to shorten them, several of them show "" when it's going to be zero, viz:

=IF(SUMIF(Consolidated!$C:$C,$B3,Consolidated!$P:$P)=0,"",SUMIF(Consolidated!$C:$C,$B3,Consolidated!$P:$P))

where the blue is a replica of the red.
In a bid to shorten the formulae, did you know that you can set the whole sheet to show zeroes as blanks in Options? (untick the box at Options|Advanced|Display Options for this worksheet|Show a zero in cells that have zero value).
This affects ALL the cells on that sheet. Code can do it (ActiveWindow.DisplayZeros = False). Can we use it?
[There is another way using cell formatting where we could format all cells in a table to hide zero values - up to you]

ps. you could have included Lob/SubLob considerations in your formulae.