VBA Syntax mit Range

Range("D9").EntireColumn.Insert

derart umgestalten, dass das D9 variabel wird.
Der entsprechende (Teil)code dafür steht momentan bei mir so:

If Left(.Cells(3, Spalte), 1) = "Q" Then
Range(Cells(1, Spalte + 1)).EntireColumn.Insert
End If

(Sinn: Finde in Zeile 3 alle Zellen mit "Q" beginnend und füge rechts daneben eine leere Spalte ein)
Das funzt aber net, ich krieg immer nur die Meldung "Die Methode Range ist für das Objekt _Global fehlgeschlagen" Ich hab jetzt schon mit einigen Kombinationen getestet, aber bisher erfolglos.
Was ist falsch?
Danke schon mal.
Gruß
David