VB Code to arrange data in Table format

Hello Brant:

I got it by changing

StoreColumn = Int((j - 4) / 7) * 7 + 3

StoreColumn = Int((j - 4) / 7) * 7 + 4

Thanks a lot

Riz