Veja agora:

Option Explicit

Sub maior_data_GT()

Application.ScreenUpdating = False

Dim PL      As Integer 'Primeira Linha
Dim UL      As Integer 'Última Linha
Dim i       As Integer
Dim j       As Integer
Dim Cod_F   As Integer
Dim Cod     As String
Dim Data    As Date

PL = Cells(1, "I").End(xlDown).Row + 1
UL = Cells(Rows.Count, "I").End(xlUp).Row

For i = PL To UL
    If Cells(i, "N").Value2 = "CANCELADO" Then
        Cells(i, "R").Value2 = "CANCELADO"
        GoTo PROXIMO
    End If
    Cod_F = Cells(i, "B").Value2
    Cod = Cells(i, "I").Value2
    For j = PL To UL
        If Cells(j, "B").Value2 = Cod_F And Cells(j, "I").Value2 = Cod And Cells(j, "N") <> "CANCELADO" Then
            If CDate(Cells(j, "J")) > Data Then Data = CDate(Cells(j, "J"))
        End If
    Next j
    Cells(i, "R").Value2 = Data
    Data = 0
PROXIMO:
Next i

Application.ScreenUpdating = True

End Sub

Vlw novamente Amigo!

Abs