VBA Excel Selecting and Splitting Empty Rows

Sub 
BosSec() 
Range("G:G").SpecialCells _ 
(xlCellTypeBlanks).Select 
End Sub 
Sub Bol() 
Range("F:F").UnMerge 
End Sub

Selects the empty rows in column G, unmerges the merged cells in column F