Макрос: по всем компаниям А, которые повторяются в файле несколько раз, автоматически преставился один статус – изменения – последний статус. Помогите сделать скрипт :)

[Olya1985]

Добрый день!

Помогите, пожалуйста, написать небольшой макрос в excel

Необходимо, чтобы после отработки макроса, например, по всем компаниям А, которые повторяются в файле несколько раз, автоматически преставился один статус – изменения – тот статус, который в файле самый последний. И так по всем компаниям.

Файл во вложении

Спасибо!

[Aleksandr H.]

Sub a()
    Dim r As Long, j As Long
    Dim d
    Dim s As String
    Set d = CreateObject("Scripting.Dictionary")
    r = ActiveSheet.Range("D5000").End(xlUp).Row
    Do While r > 1
        s = Application.Trim(Cells(r, "D"))
        If Not d.Exists(s) Then
            For j = r-1 To 2 Step -1
                If Application.Trim(Cells(j, "D")) = s Then
                    Cells(j, "J") = Cells(r, "J")
                End If
            Next
            d.Add s, ""
        End If
        r = r - 1
    Loop
    Set d = Nothing
End Sub

[Olya1985]

Большое спасибо!