Mehrere Spalten nacheinander automatisch wählen

Sub test()
Dim AnzZeilen As Variant
Dim Spalte As Variant
Dim Zeile As Variant
Dim Name As Variant
Range("A2").Select
Selection.End(xlDown).Select
AnzZeilen = ActiveCell.Row - 2
Sheets("Tabelle3").Select
Zeile = "2"
Spalte = "B"
Range(Spalte & Zeile).Select
Do...Loop Schleifen
For... next Schleifen
End Sub

Was ich will:
Das Makro soll nun nicht immer nur Spalte B auswählen, sondern nacheinander:
Spalte B Zeile 1-9 (1-9 ist aus AnzZeilen und einer For Next Schleife zusamengesetzt for i=1 to AnzZeilen)
Spalte C Zeile 1-9
Spalte F Zeile 1-9 etc.
Wie kriege ich die Variable "Spalte" so hingebastelt, dass ich da so was wie eine Liste erstellen kann?
Danke für eure Hilfe!
Gruss
Rolf
PS: Wenn sich schon jemand die Mühe macht, könnte man auch gleich noch die "Variant" richtig setzen ;)