[Spirosgr]

Δεν έγινα νομίζω απόλυτα κατανοητός...

Παρ' όλα αυτά...
Αν υποτεθεί ότι έχεις ένα σωστό κώδικα, ο οποίος κάνει την δουλειά, τότε:

Το τιμολόγιο σου (φύλλο τιμολόγηση) έχει στο κελί e11 = Αρίθμηση πχ 3
και στο e12 = Ημερομηνία πχ 1/4/2017

ο κώδικας

'Ο τίτλος της εντολής σου...

'Ο κώδικάς σου, έχει βάλει στο τιμολόγιο την αρίθμηση
'Ο κώδικάς σου, έχει βάλει στο τιμολόγιο την ημερομηνία
'ή έχεις βάλει στο τιμολόγιο την ημερομηνία χειροκίνητα

    Dim Lrow As Long
    Lrow = Φύλλο5.Cells(Rows.Count, 1).End(xlUp).Row

    Dim inDate As Date, inNum As Long
    inDate = Φύλλο2.Cells(12, 5).Value
    inNum = Φύλλο2.Cells(11, 5).Value

    Dim exDate As Date, exNum As Long
    exDate = Φύλλο5.Cells(Lrow, 1).Value
    exNum = Φύλλο5.Cells(Lrow, 3).Value

    If inDate >= exDate And inNum > exNum Then

        'Ο υπόλοιπος κώδικας σου ΕΔΩ...

    Else
        MsgBox "Σφάλμα Καταχώρησης."
        End
    End If
'Κλείνει με End Sub

κάνει τον έλεγχο και κλείνει όλες τις εντολές αν έχουμε σφάλμα...

*με κάθε επιφύλαξη, διότι δεν μας δείχνεις τον δικό σου κώδικα...