Add a line like:

If Application.CountBlank(Range("D3:D4")) = 2 Then Cells.EntireColumn.Hidden = False