Rica ederim.
Birde yapmışken buton ile yaptım.

Private Sub CommandButton1_Click()

    Dim dict As Object, veri(), i As Long, son As Long

    Dim veri2(), k As Long, sonE1 As Long

    Set dict = CreateObject("Scripting.dictionary")

    dict.comparemode = 1 '1 kücük büyük harf icin

    

    With ThisWorkbook.Sheets("T1")

        veri = .Range("E1:F" & .Range("E" & Rows.Count).End(3).Row).Value

        For i = LBound(veri) To UBound(veri)

            If Not dict.exists(veri(i, 1)) Then dict.Add veri(i, 1), veri(i, 2)

        Next

        

        With ThisWorkbook.Sheets("E1")

            sonE1 = .Range("B" & Rows.Count).End(3).Row

            If sonE1 < 3 Then sonE1 = 3

                ReDim veri2(1 To sonE1, 1 To 1)

                For k = 3 To sonE1

                veri2(k - 2, 1) = dict(Cells(k, "E").Value)

            Next

            .Range("F3").Resize(UBound(veri2) - 2, 1).Value = veri2

        End With

        

    End With

    MsgBox "islem tamam", vbInformation, "Bilgi"

    Set dict = Nothing: Erase veri: Erase veri2

End Sub