Makro verbessern - Bereich

Sub Makro()
Dim n As Integer
Dim rng As Range
Dim datum As Date
Dim Bereich As Range
Set Bereich = Range("J2:J10000")
datum = inputbox("Bitte geben Sie das Datum wie folgt ein: MM.JJJJ. Vorher müssen Sie den zu prü _
fenden Bereich markiert haben!")
For Each rng In Bereich
If IsDate(rng) Then
If rng > datum Then
rng.Interior.ColorIndex = 17
End If
End If
Next rng
End Sub

Derzeit markiere ich also den zu prüfenden Bereich (vor der Eingabe in die Inputbox) manuell. Diese Arbeit soll aber auch das Makro machen. Genauer gesagt soll der Bereich von J2 bis zur letzten gefüllten Zelle in Spalte J ermittelt werden.
Kann mir hier jemand auf die Sprünge helfen? Danke schön!
Gruß
Markus