VBA Nach Makro noch Format festlegen

Public Sub aaa()
Dim rngBereich As Range
Dim rngZelle As Range
Dim LoLetzte As Long
With Worksheets("Übersicht letzter Besuch")
LoLetzte = .Cells(.Rows.Count, 10).End(xlUp).Row
Set rngBereich = .Range(.Cells(2, 10), .Cells(LoLetzte, 10))
For Each rngZelle In rngBereich
If rngZelle.Value  "" Then
If rngZelle.Offset(, 3).Value = "" Then
rngZelle.Offset(, 3).Value = CDate(rngZelle.Value)
ElseIf IsDate(rngZelle.Offset(, 3).Value) Then
If CDate(rngZelle.Value) > CDate(rngZelle.Offset(, 3).Value) Then
rngZelle.Offset(, 3).Value = rngZelle.Value
End If
End If
End If
Next rngZelle
End With
End Sub