How to scramble tables in word

[mana]

Thanks. It became very easy to understand.
I think it is better to change like below.

lngReserve = oDocBank.Sections(lngSec).Range.Tables.Count - Int(dblSecWt)
oDicReserve(lngSec) = lngReserve        '<-----------moved here
For Each oTbl In oDocBank.Sections(lngSec).Range.Tables