Не работают процедуры

[TI_ProJecT]

Основной код

Private Sub CommandButton2_Click()
Dim zakaz As Integer
Dim time, com, nomz As String
zakaz = Application.CountA(Sheets("Çàêàçû").Range("A:A")) + 3

If TextBox8 < 24 And TextBox9 < 60 Then
time = TextBox8.Text + ":" + TextBox9.Text
Else
MsgBox "Âðåìÿ ââåäåíî íåêîððåêòíî", vbCritical, "Îøèáêà"
TextBox8 = " "
TextBox9 = " "
End If

If ComboBox4 <> "" And ComboBox1 <> "" And TextBox5 <> "" And TextBox8 <> "" And TextBox9 <> "" And TextBox10 <> "" Then
Sheets("çàêàçû").Cells(zakaz, 1) = ComboBox4.Text
Call pr1
Sheets("çàêàçû").Cells(zakaz, 2) = ComboBox1.Value
Sheets("çàêàçû").Cells(zakaz, 3) = ComboBox2.Text
Sheets("çàêàçû").Cells(zakaz, 4) = ComboBox3.Text
Sheets("çàêàçû").Cells(zakaz, 5) = TextBox5.Value
Sheets("çàêàçû").Cells(zakaz, 6) = TextBox6.Value
Sheets("çàêàçû").Cells(zakaz, 7) = TextBox7.Value
Call pr3
Sheets("çàêàçû").Cells(zakaz, 8) = Calendar1.Value
Sheets("çàêàçû").Cells(zakaz, 9) = time
Call pr2
Sheets("çàêàçû").Cells(zakaz, 10) = CheckBox1
Sheets("çàêàçû").Cells(zakaz, 11) = TextBox10.Value

Else
MsgBox ("Íå âñå äàííûå ââåäåíû!"), vbExclamation, "Îøèáêà"
End If

ComboBox1 = " "
ComboBox2 = " "
ComboBox3 = " "
ComboBox4 = " "
TextBox5 = " "
TextBox6 = " "
TextBox7 = " "
TextBox8 = " "
TextBox9 = " "
TextBox10 = " "



If CheckBox1 = True Then
    Sheets("çàêàçû").Cells(zakaz, 10) = "Çâîíèòü"
    Else
    Sheets("çàêàçû").Cells(zakaz, 10) = "Íå çâîíèòü"
End If
MsgBox "Ñîîáùåíèå êëèåíòó: Îáùàÿ ñóììà çàêàçà - " & Sheets("çàêàçû").Cells(zakaz, 11) & " ðóáëåé. Äàòà -  " & Sheets("çàêàçû").Cells(zakaz, 8) & ", íà " & time & ".", 64, "Èíôîðìàöèÿ äëÿ êëèåíòà"
End
End Sub

Процедуры

Sub pr2()
Sheets("Îôîðìëåíèå").Cells(6, 2).Value = time 'äàòà âðåìÿ
Sheets("Îôîðìëåíèå").Cells(7, 2).Value = Calendar1.Value
End Sub
Sub pr3()
of = Application.CountA(Sheets("Îôîðìëåíèå").Range("A:A")) + 2 'øèôð
zak = Application.CountA(Sheets("Ïðàéñ-ëèñò").Range("A:A")) + 1
For i = 2 To zak - 1
If ComboBox1.Value Like Sheets("Ïðàéñ-ëèñò").Cells(i, 1).Value Then
Sheets("Îôîðìëåíèå").Cells(of, 1) = Sheets("Ïðàéñ-ëèñò").Cells(i, 1).Text
Sheets("Îôîðìëåíèå").Cells(of, 2).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 2).Value
Sheets("Îôîðìëåíèå").Cells(of, 3).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 3).Value
Sheets("Îôîðìëåíèå").Cells(of, 4).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 4).Value
Sheets("Îôîðìëåíèå").Cells(of, 5).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 5).Value
Sheets("Îôîðìëåíèå").Cells(of, 6).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 6).Value
Sheets("Îôîðìëåíèå").Cells(of, 7).Value = TextBox5.Value
Sheets("Îôîðìëåíèå").Cells(of, 8).Value = p
End If
Next i
zak2 = Application.CountA(Sheets("Ïðàéñ-ëèñò").Range("A:A")) + 2
For i = 2 To zak2 - 1
of1 = Application.CountA(Sheets("Îôîðìëåíèå").Range("A:A")) + 1
If ComboBox2.Value Like Sheets("Ïðàéñ-ëèñò").Cells(i, 1).Value Then
Sheets("Îôîðìëåíèå").Cells(of1, 1).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 1).Value
Sheets("Îôîðìëåíèå").Cells(of1, 2).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 2).Value
Sheets("Îôîðìëåíèå").Cells(of1, 3).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 3).Value
Sheets("Îôîðìëåíèå").Cells(of1, 4).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 4).Value
Sheets("Îôîðìëåíèå").Cells(of1, 5).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 5).Value
Sheets("Îôîðìëåíèå").Cells(of1, 6).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 6).Value
Sheets("Îôîðìëåíèå").Cells(of1, 7).Value = TextBox5
Sheets("Îôîðìëåíèå").Cells(of1, 8).Value = d
End If
Next i
zak3 = Application.CountA(Sheets("Ïðàéñ-ëèñò").Range("A:A")) + 2
For i = 2 To zak3 - 1
of2 = Application.CountA(Sheets("Îôîðìëåíèå").Range("A:A")) + 1
If ComboBox3.Value Like Sheets("Ïðàéñ-ëèñò").Cells(i, 1).Value Then
Sheets("Îôîðìëåíèå").Cells(of2, 1).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 1).Value
Sheets("Îôîðìëåíèå").Cells(of2, 2).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 2).Value
Sheets("Îôîðìëåíèå").Cells(of2, 3).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 3).Value
Sheets("Îôîðìëåíèå").Cells(of2, 4).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 4).Value
Sheets("Îôîðìëåíèå").Cells(of2, 5).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 5).Value
Sheets("Îôîðìëåíèå").Cells(of2, 6).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 6).Value
Sheets("Îôîðìëåíèå").Cells(of2, 7).Value = TextBox5
Sheets("Îôîðìëåíèå").Cells(of2, 8).Value = t
End If
Next i
End Sub

Понимаю что слишком громоздко, но попробуйте разобраться.
Вопрос такой, после вызова процедур не все команды выполняются.
А точнее не заполняется время time, ставиться время с компа.
И не правильно заполняется все что прописано в процедуре pr3. Почему то не определяет первую пустую, частенько в шапку все заносит, либо вообще пропускает строк 7 пустых.