VBA Laufzeitenfehler "6" Überlauf

ich kriege leider diese Fehlermeldung.
anbei hab ihr die Makros,

Private Sub CommandButton1_Click()
datu = DTPicker1.Value
z = 5
Do While Cells(z, 1) <> datu
z = z + 1
Loop
Do While Cells(z, 1) <> ComboBox1.Text
z = z + 1
Loop
Cells(z, 4) = ComboBox3.Value
Cells(z, 5) = Format(ComboBox8.Value, "hh:mm")
Cells(z, 6) = ComboBox4.Text
Cells(z, 7) = Format(ComboBox9.Value, "hh:mm")
Cells(z, 8) = ComboBox5.Text
Cells(z, 9) = Format(ComboBox10.Value, "hh:mm")
Cells(z, 10) = ComboBox6.Text
Cells(z, 11) = Format(ComboBox11.Value, "hh:mm")
Cells(z, 3) = ComboBox7.Value
End Sub

würde mich über eine sehr schnelle Antwort freuen!
(Verstehe nicht viel von VBA bitte dem entsprechend erklären)

Danke schonmal im Voraus!