Slet tomme kolonner

Hej
Jeg har et regneark med ca. 100 kolonner, men ca. hver anden er tom, hvordan sletter jeg hurtigst disse?
Jeg har tekst i række 3. Jeg har en makro der kan skjule tomme kolonner, men hvordan ser den ud, hvis den skal slette tomme kolonner?

Sub SkjulKolonne()
For x = 1 To 100 'kolonnenumre, som skal testes
If Cells(3, x).Value = 0 Then
Cells(3, x).EntireColumn.Hidden = True
Else
Cells(3, x).EntireColumn.Hidden = False
End If
Next
End Sub