Sub TestCellA1()
If IsEmpty(Range("j14").Value) = True Then
Columns("J:T").Select
Selection.EntireColumn.Hidden = True
Range("a14").Select
End If
If IsEmpty(Range("k14").Value) = True Then
Columns("k:T").Select
Selection.EntireColumn.Hidden = True
Range("a14").Select
End If
If IsEmpty(Range("l14").Value) = True Then
Columns("l:T").Select
Selection.EntireColumn.Hidden = True
Range("a14").Select
End If
If IsEmpty(Range("m14").Value) = True Then
Columns("m:T").Select
Selection.EntireColumn.Hidden = True
Range("a14").Select
End If
If IsEmpty(Range("n14").Value) = True Then
Columns("n:T").Select
Selection.EntireColumn.Hidden = True
Range("a14").Select
End If
If IsEmpty(Range("o14").Value) = True Then
Columns("o:T").Select
Selection.EntireColumn.Hidden = True
Range("a14").Select
End If
If IsEmpty(Range("p14").Value) = True Then
Columns("p:T").Select
Selection.EntireColumn.Hidden = True
Range("a14").Select
End If
If IsEmpty(Range("q14").Value) = True Then
Columns("q:T").Select
Selection.EntireColumn.Hidden = True
Range("a14").Select
End If
If IsEmpty(Range("r14").Value) = True Then
Columns("r:T").Select
Selection.EntireColumn.Hidden = True
Range("a14").Select
End If
If IsEmpty(Range("s14").Value) = True Then
Columns("s:t").Select
Selection.EntireColumn.Hidden = True
Range("a14").Select
End If
If IsEmpty(Range("t14").Value) = True Then
Columns("t:t").Select
Selection.EntireColumn.Hidden = True
Range("a14").Select
End If
End Sub