Excel Makro - Button "Springe zu Zeile mit heutigem Datum"

Sub FindCurrentDateInRangeAndColorRange()
    Dim f As Range
    Set f = Range("A:A").Find(Date, LookIn:=xlValues)  
    If Not f Is Nothing Then
        ' Bereich A:D der gefundenen Zeile mit einem roten Rahmen versehen.  
        Range("A" & f.Row, "D" & f.Row).BorderAround LineStyle:=XlLineStyle.xlContinuous, Weight:=xlMedium, Color:=vbRed  
    End If
End Sub

'hält Buch über die letzte aktuelle Zeile  
Dim lastRange As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Dim rngMarker As Range
    ' Wenn der letzte Zeile farbig markiert wurde entferne die Markierung  
    If Not lastRange Is Nothing Then
        lastRange.Borders.LineStyle = xlLineStyleNone
    Else
        'letzter Bereich nicht gesetzt (z.B. beim Start von Excel), dann lösche alle Ränder des Bereichs  
        Range("A:D").Borders.LineStyle = xlLineStyleNone  
    End If
    ' Bereich der zu markierende Zellen der aktuellen Zeile festlegen  
    Set rngMarker = Range("A" & Target.Row, "D" & Target.Row)  
    ' Zellen mit roter Markierung versehen  
    rngMarker.BorderAround LineStyle:=XlLineStyle.xlContinuous, Weight:=xlMedium, Color:=vbRed
    ' aktuelle Zeile speichern  
    Set lastRange = rngMarker
    Application.ScreenUpdating = True
End Sub