Druckbereich

Private Sub CommandButton1_Click()
Dim intRow As Integer
intRow = 1
Do Until Cells(intRow, 7) = 0
intRow = intRow + 1
Loop
Worksheets("Tabelle8").PageSetup.PrintArea = _
ActiveSheet.Name & "!" & Range(Cells(1, 1), Cells(intRow - 1, 8)).Address
End Sub

hiermit lege ich den druckbereich zwischen "a1:H?" bis zum ersten nullwert in "g" fest. das funktioniert auch prima.
was ich aber vergessen hatte, dass in "g5" eine beschriftung steht. nun kommt der laufzeitfehler 13, typ unverträglich.
gibt es eine möglichkeit die anweisung so zu ändern, dass in spalte "g5" text stehen darf?

an martin beck nochmals danke.

für hilfe wäre ich dankbar.

gruß
martin