erste freie Zelle befüllen

Hallo zusammen
Ich habe da ein Problem. Ich fülle meine Tabelle über diesen Code.

Private Sub CommandButton2_Click()
Dim AZ As Range
If [G4] = "" Then
Set AZ = [G4]
Else
Set AZ = Cells(Rows.Count, 6).End(xlUp).Offset(1, 1)
End If
AZ = TextBox1
With AZ
.Offset(0, 1) = ComboBox1 & ComboBox2 & ComboBox3
.Offset(0, 2) = ComboBox5
.Offset(0, 3) = ComboBox4 & ComboBox6
'Columns("A:N").AutoFit
End With
Unload Me
End Sub

Und Eigentlich sollte immer in G4 die erste freie Zelle dann gefüllt werden. Aber irgendwie Überschreibt er immer wieder die gleiche. Was mache ich falsch.