hide columns if they are empty populated from userform

Hi all,
Following code works fine. It will hide column if row 2 is empty ( But only for data in row 2 of the respective columns)
How do I get it it work for the entire columns?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("J2").Value = "" Then
        Columns("J").EntireColumn.Hidden = True
    Else
        Columns("J").EntireColumn.Hidden = False
    End If
If Range("H2").Value = "" Then
        Columns("H").EntireColumn.Hidden = True
    Else
        Columns("H").EntireColumn.Hidden = False
    End If
If Range("I2").Value = "" Then
        Columns("I").EntireColumn.Hidden = True
    Else
        Columns("I").EntireColumn.Hidden = False
    End If
If Range("K2").Value = "" Then
        Columns("K").EntireColumn.Hidden = True
    Else
        Columns("K").EntireColumn.Hidden = False
    End If

If Range("L2").Value = "" Then
        Columns("L").EntireColumn.Hidden = True
    Else
        Columns("L").EntireColumn.Hidden = False
    End If

If Range("M2").Value = "" Then
        Columns("M").EntireColumn.Hidden = True
    Else
        Columns("M").EntireColumn.Hidden = False
    End If
If Range("F2").Value = "" Then
        Columns("F").EntireColumn.Hidden = True
    Else
        Columns("F").EntireColumn.Hidden = False
    End If
If Range("G2").Value = "" Then
        Columns("G").EntireColumn.Hidden = True
    Else
        Columns("G").EntireColumn.Hidden = False
    End If
If Range("N2").Value = "" Then
        Columns("N").EntireColumn.Hidden = True
    Else
        Columns("N").EntireColumn.Hidden = False
    End If


End Sub

Test file is attached
Need some help please
Kind regards