Insert 50 blank columns inbetween

Do you mean rows?

if you are looking for vba code try this

Sub myTest()
Dim mycel As Range
Dim lr As Long
    lr = Cells(Rows.Count, "g").End(xlUp).Row
    For i = lr To 9 Step -1
        If Cells(i, "g").Value > "" Then
            Cells(i + 1, "g").Resize(50, 1).EntireRow.Insert
        End If
    Next i
End Sub