Date of last row formatted

Thx... found what i'm looking for below

 Private Sub Worksheet_Change(ByVal Target As Excel.Range)
        With Target
            If .Count > 1 Then Exit Sub
            
            
            If Not Intersect(Range("A5:A2000"), .Cells) Is Nothing Then
                Application.EnableEvents = False
                If IsEmpty(.Value) Then
                    .Offset(0, 7).ClearContents
                Else
                    With .Offset(0, 7)
                        .NumberFormat = "dd mmm yyyy"
                        .Value = Date
                    End With
                End If
                Application.EnableEvents = True
            End If
            
            If Not Intersect(Range("b5:b2000"), .Cells) Is Nothing Then
                Application.EnableEvents = False
                If IsEmpty(.Value) Then
                    .Offset(0, 6).ClearContents
                Else
                    With .Offset(0, 6)
                        .NumberFormat = "dd mmm yyyy"
                        .Value = Date
                    End With
                End If
                Application.EnableEvents = True
            End If
            
            
            
        End With
    End Sub