Vælg række 2 --> sidst udfyldte i en kolonne

Jeg skal have lavet conditional formatting på en kolonne fra række 2 og til sidste celle i kolonnen der er udfyldt, men jeg har svært ved at lave en linie der sørger for at markerer celle R2 til R(sidst-udfyldte celle i kolonnen)

Range("R2").End(xlDown).Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="=TODAY()"

Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
    bla bla