Hallo zusammen

irgendwie kann ich diese 2 schleifen nicht zusammen kombinieren, kann mal bitte jemand schauen:

Private Sub CommandButton1_Click()
     Dim ze As Integer
     Dim ze2 As Integer
     With Worksheets("Outdoor")
                For ze = 15 To 21 Step 3
                For ze2 = 14 To 20 Step 3
                If .Cells(ze, 9) = "" Then
                     .Cells(ze, 9) = TextBox6.Value
                Exit For
                End If
                Next ze
                If .Cells(ze2, 8) = "" Then
                        .Cells(ze2, 8) = TextBox7.Value
                Exit For
                End If
                Next ze2
     End With
Unload Me
 End Sub

Danke im vorraus.

Liebe Grüße