Inserting columns using VBA

[Phoenix1]

I have a lot of tables of information on one worksheet. Each table is separated by an empty column. I need to be able to write a code that will insert an extra column between each table. All tables are 8 columns wide and use 50 rows. Can anyone help please?

[xld]

Off the top

With Activesheet 
     
    lastcol = .Cells(1, .Columns.Count).End(xlToLeft).Column 
    For i = lastcol - 8 To 9 Step -1 
         
        .Columns(i).Insert 
    Next i 
End With 

VBA tags courtesy of www.thecodenet.com