Организация очередности вводимых данных

Private Sub Text1_Validate(Cancel As Boolean)
    If Not (IsDate(Text1.Text)) Then
         MsgBox "Введите в текстовое поле корректную дату"
         Cancel = True
     End If
End Sub

If Text1.Text = vbNullString Then

Private Sub Text1_Validate(Cancel As Boolean)
    If Text1.Text = vbNullString Then
         MsgBox "Введите в текстовое поле корректную дату"
         Cancel = True
     End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
    If Cells(Target.Row, Target.Column - 1).Value = "" Then
    Target.Value = ""
    End If
End If
If Target.Column = 2 Then
    If Target.Value = "" Then
    Cells(Target.Row, Target.Column + 1).Value = ""
    Target.Value = ""
    End If
End If
End Sub

Public Function Macro1(x)
 
Macro1 = False
Range("f3").Select
r = ActiveCell.Row
c = ActiveCell.Column
 
Do Until Macro1 = True
' 1. validation
If x <> "Income" And x <> "Meal" And x <> "Transport" And x <> "Education" Then
        Do Until x = "Income" Or x = "Meal" Or x = "Transport" Or x = "Education"
            x = InputBox(" Income or Meal or Transport or Education?")
        Loop
      Else
       
' 2. validation
If x <> "Income" And Cells(r, c - 2) <> "" Then
    MsgBox "If Income is filled then Type must be Income", vbExclamation
    Do Until x = "Income"
    x = InputBox(" Type must be Income", "Entry Form", "Income")
    Loop
Else
 
' 3. validation
If x <> "Meal" And x <> "Transport" And x <> "Education" And Cells(r, c - 3) <> "" Then
    Do Until x = "Meal" Or x = "Transport" Or x = "Education"
    x = InputBox(" If Expense is filled then Type must be Meal or Transport or Education!")
    Loop
Else
 
' 4. validation
If Cells(r, c + 1) <> "" Then
MsgBox "Subtype is already filled, you can't chose type", vbExclamation
Do Until Cells(r, c + 1) = ""
 Msg = "To enter Type, you must delete Subtype. Do you wat to delete Subtype?"
    If MsgBox(Msg, vbQuestion + vbYesNo, "Warning!") = vbYes Then
        Cells(r, c + 1).Select
        Selection.ClearContents
        Range("a1").Select
    Else
        MsgBox "You cant choose Type right now!"
    End If
    Loop
    Else
           Macro1 = True
End If
End If
End If 
End If

Public Function Macro1(x)
Macro1=TRue
If (условие) then
 Msg "Error!"
 Macro1=False
End If