hide columns if they are empty populated from userform

If you don't want to count from 6 to 14 and use column letters then this will work also.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim ColCtr As Double
    For ColCtr = Cells(, "F").Column To Cells(, "N").Column
        If Cells(Rows.Count, ColCtr).End(xlUp).Row = 1 Then
            Columns(ColCtr).EntireColumn.Hidden = True
        Else
            Columns(ColCtr).EntireColumn.Hidden = False
        End If
    Next ColCtr
End Sub