insert cell and shift cells right at every blank cell in column

My data is in blocks ranging from A to AB, rows vary. Each block of data is separated by an inserted row which now contains some formulas and subtotals. Only the subtotals in AB matter to me.

At every empty cell in column G, I need to insert a cell and shift cells right. This will push the subtotals in AB out into their own column, AC.

I'm very new to macros and to this forum. I realize this is very simple for most. Sorry I have to ask.

Here is what I have written. This does what I want, except that it shifts cells down for the insert. I need to shift cells right.

Sub ShiftRightAtG()
Range("G8:G35268").SpecialCells(xlCellTypeBlanks).Select
Selection.Insert
Range("A1").Select 'Get back to top of range
End Sub