Anzahl belegte Zellen zählen in Spalte A1

Ich möchte mit folgendem Code:

Sub Workbook_Open()
MsgBox "Du hast im Moment " & ActiveSheet.UsedRange.Count & " Aufträge erfasst."
End Sub

nicht das ganze Sheet durchzählen, sondern nur die Spalt A, ab Zelle A5 und folgende... kann auch wenn nicht möglich auf A200 z.Bsp. begrenzt werden.

Wie muss der Code angepasst werden ?

Vielen Dank und Gruss Daniel

Const StartLine = 5

Sub Workbook_Open()
    Dim Orders As Integer

    If IsEmpty(Cells(StartLine, 1)) Then
        MsgBox "Du hast noch keine Aufträge erfasst."  
    Else
        Orders = Cells(Rows.Count, "A").End(xlUp).Row + 1 - StartLine  
        MsgBox "Du hast im Moment " & Orders & " Aufträge erfasst."  
    End If
End Sub