Create table that returns recent date for multiple rows of matching data; except dat

Public Sub LatestData()
Dim wsthis As Worksheet
Dim wsres As Worksheet
Dim lastrow As Long
Dim nextrow As Long
Dim i As Long
    
    Application.ScreenUpdating = False
    Set wsthis = ActiveSheet
    
    On Error Resume Next
    Application.DisplayAlerts = False
    Worksheets("Results").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0
    Set wsres = Worksheets.Add(after:=wsthis)
    ActiveSheet.Name = "Results"
    
    With wsthis
        
        .Rows(1).Copy wsres.Range("A1")
        nextrow = 1
    
        lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
        For i = 2 To lastrow
        
            If .Cells(i, "E").Value <> .Cells(i - 1, "E").Value Then
            
                nextrow = nextrow + 1
                .Rows(i).Copy wsres.Cells(nextrow, "A")
            ElseIf .Cells(i, "F").Value > wsres.Cells(nextrow, "F").Value Then
            
                .Cells(i, "F").Resize(, 2).Copy wsres.Cells(nextrow, "F")
            End If
        Next i
    End With
    
    Application.ScreenUpdating = True
End Sub