VBA to Update status Column based on recent date

Sub Status()
Dim lngLastRow As Long
Dim lngRow As Long
Dim lngMR_Row As Long
Dim strOldName As String
Dim dteMostRecent As Date

Application.ScreenUpdating = False

lngLastRow = Range("A1048576").End(xlUp).Row
strOldName = Range("A2")
dteMostRecent = Range("B2") - 1
Range("C2:C" & lngLastRow) = "Superseded"

For lngRow = 2 To lngLastRow
    If Cells(lngRow, "A") = strOldName Then
        If DateDiff("d", dteMostRecent, Cells(lngRow, "B")) > 0 Then
            dteMostRecent = Cells(lngRow, "B")
            lngMR_Row = lngRow
        End If
    Else
        Cells(lngMR_Row, "C") = "Current"
        strOldName = Cells(lngRow, "A")
        lngMR_Row = lngRow
        dteMostRecent = Cells(lngRow, "B")
    End If
Next
Cells(lngMR_Row, "C") = "Current"

Application.ScreenUpdating = True

End Sub

Select allOpen in new window

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngLastRow As Long
Dim lngRow As Long
Dim lngMax As Long
Dim rngVisible As Range
Dim dteMostRecent As Date
Dim lngMR_Row As Long

Application.ScreenUpdating = False

ActiveSheet.UsedRange.AutoFilter

lngLastRow = Range("A1048576").End(xlUp).Row

If Not Intersect(Target, Range("A2:B" & lngLastRow)) Is Nothing Then
    If Cells(Target.Row, "A") = Empty Or Cells(Target.Row, "B") = Empty Then
        Exit Sub
    Else
        Range("$A$1:$C$" & lngLastRow).AutoFilter Field:=1, Criteria1:=Cells(Target.Row, "A")
        Set rngVisible = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
        dteMostRecent = #1/1/1950#
        Application.EnableEvents = False
        For lngRow = ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(1, 2).Row To rngVisible.End(xlDown).Row
            Cells(lngRow, "C") = "Superseded"
            If DateDiff("d", dteMostRecent, Cells(lngRow, "B")) > 0 Then
                dteMostRecent = Cells(lngRow, "B")
                lngMR_Row = lngRow
            End If
        Next
        Cells(lngMR_Row, "C") = "Current"
        Application.EnableEvents = True
    End If
End If

ActiveSheet.UsedRange.AutoFilter

Application.ScreenUpdating = True

Select allOpen in new window

1. Right-click on an existing row number and selected Insert
2. Copied the "Name" from the above row and pasted it into column "A" of the new row
3. Entered a date into the "Date" column of the new row
4. Selected any other cell