Macro to move range of cells if certain cell is not blank

[lmasala]

I have a list of addresses. Most follow the format Street Address in Column A, City in Column B, County in C, State in D. But some have an Apartment Number in Column B that pushes the rest of the address back so that State ends up in Column F.

What I am trying to do: Insert blank Column B. If the cell in Column F is not blank then move cells in Columns C-F to Columns B-E, otherwise do nothing. After looping through all rows, delete Column F.

I know this is pretty simple but my brain is fried today and I am getting nowhere. Thanks in advance for any help. I really, really appreciate it!

 

[lmasala]

For anyone that is trying to do something similar, this is what I ended up with. I realize it's ugly, but I'm new at this and it seems to get the job done. Any advice on making it less awful is more than welcome. Thanks!

    Columns("B").Select
    Selection.Insert

    Dim unitRange As Range
    Dim cell As Range
    Set unitRange = Range("F1")
    Set unitRange = Range("F1:F300") 
    For Each cell In unitRange
     If cell <> "" Then
         cell.Activate
         Selection.Offset(0, -3).Resize(Selection.Rows.Count + 0, _
         Selection.Columns.Count + 3).Copy
         ActiveCell.Offset(0, -4).Activate
         ActiveCell.PasteSpecial
      End If
    Next cell

    Columns("F").Select
    Selection.Delete