Spalten mit Makro nach Vorgabe ein und ausblenden

Sub Zeilenausblenden()
Rows("9:209").Hidden = True
Rows("9:" & (9 + Range("A4").Value)).Hidden = False
End Sub

Für Spalten klappt, das jetzt nicht wenn das eins zu eins überschreibe mit "Columns", da ich hier ja Buchstaben verwenden muss.
Der Ausblendebefehl ist ja klar, mache ich einfach
Sub Ausblenden()
Columns"G:AA".Hidden = True
End Sub
Aber wie bekomme ich es hin, dass nur die vorgebene Anzahl an Spalten wieder eingefügt wird?
Vielen Dank an alle!
Grüße
Christoph