Sub test3() 'оставляет последнюю строку из дублей
'Dim tm: tm = Timer
 Sheets( 2 ).[A1].CurrentRegion.ClearContents

    Dim a(), oDict As Object, i As Long, ii As Long, temp As String
    Dim ind As Long
    With Sheets( 1 )
        a = .[A1].CurrentRegion.Value
    End With

    ReDim b( 1  To UBound(a),  1  To  22 )

    Set oDict = CreateObject("Scripting.Dictionary")

    For i =  1  To UBound(a)
        temp = _
        a(i,  3 ) & "|" & _
        a(i,  4 ) & "|" & _
        a(i,  5 ) & "|" & _
        a(i,  6 ) & "|" & _
        a(i,  7 ) & "|" & _
        a(i,  8 ) & "|" & _
        a(i,  9 ) & "|" & _
        a(i,  10 ) & "|" & _
        a(i,  11 ) & "|" & _
        a(i,  12 ) & "|" & _
        a(i,  13 ) & "|" & _
        a(i,  14 ) & "|" & _
        a(i,  15 ) & "|" & _
        a(i,  16 ) & "|" & _
        a(i,  17 ) & "|" & _
        a(i,  18 ) & "|" & _
        a(i,  19 ) & "|" & _
        a(i,  20 ) & "|" & _
        a(i,  21 ) & "|" & _
        a(i,  22 )
        If Not oDict.Exists(temp) Then
            ind = ind +  1 
            oDict.Add temp, CStr(ind)
            For ii =  1  To  22 : b(ind, ii) = a(i, ii): Next
        Else
            ii = oDict.Item(temp)
            b(ii,  1 ) = a(i,  1 ): b(ii,  2 ) = a(i,  2 )
        End If
    Next

    With Sheets( 2 )
        .[A1].Resize(ind,  22 ) = b
    End With

Sheets( 2 ).Activate
'Debug.Print Timer - tm
End Sub


Sub test4() 'оставляет последнюю дату
'Dim tm: tm = Timer
 Sheets( 2 ).[A1].CurrentRegion.ClearContents

    Dim a(), oDict As Object, i As Long, ii As Long, temp As String
    Dim ind As Long
    With Sheets( 1 )
        a = .[A1].CurrentRegion.Value
    End With

    ReDim b( 1  To UBound(a),  1  To  22 )

    Set oDict = CreateObject("Scripting.Dictionary")

    For i =  1  To UBound(a)
        temp = _
        a(i,  3 ) & "|" & _
        a(i,  4 ) & "|" & _
        a(i,  5 ) & "|" & _
        a(i,  6 ) & "|" & _
        a(i,  7 ) & "|" & _
        a(i,  8 ) & "|" & _
        a(i,  9 ) & "|" & _
        a(i,  10 ) & "|" & _
        a(i,  11 ) & "|" & _
        a(i,  12 ) & "|" & _
        a(i,  13 ) & "|" & _
        a(i,  14 ) & "|" & _
        a(i,  15 ) & "|" & _
        a(i,  16 ) & "|" & _
        a(i,  17 ) & "|" & _
        a(i,  18 ) & "|" & _
        a(i,  19 ) & "|" & _
        a(i,  20 ) & "|" & _
        a(i,  21 ) & "|" & _
        a(i,  22 )
        If Not oDict.Exists(temp) Then
            ind = ind +  1 
            oDict.Add temp, CStr(ind)
            For ii =  1  To  22 : b(ind, ii) = a(i, ii): Next
        Else
            ii = oDict.Item(temp)
            If CDate(b(ii,  3 )) <= CDate(a(i,  3 )) Then _
            b(ii,  1 ) = a(i,  1 ): b(ii,  2 ) = a(i,  2 ): b(ii,  3 ) = a(i,  3 )
        End If
    Next

    With Sheets( 2 )
        .[A1].Resize(ind,  22 ) = b
    End With

Sheets( 2 ).Activate
'Debug.Print Timer - tm
End Sub