Yardım Birden çok Düşey ara, bul, birleştir

Option Explicit
Sub BulBirlestir()
    Dim X           As Object
    Dim i, IlkDeger As Long
    Dim Param       As String
   
    For i = 2 To WorksheetFunction.CountA(Sayfa1.Columns(5))
     
        Set X = Sayfa2.Columns(4).Find(Sayfa1.Cells(i, 5), LookIn:=xlValues, SearchDirection:=xlNext)
        IlkDeger = X.Row
       
            Do
                If Param = "" Then
                    Param = Sayfa2.Cells(X.Row, 7) & " " & Sayfa2.Cells(X.Row, 8) & " " & Sayfa2.Cells(X.Row, 9)
                    Else
                    Param = Param & " - " & Sayfa2.Cells(X.Row, 7) & " " & Sayfa2.Cells(X.Row, 8) & " " & Sayfa2.Cells(X.Row, 9)
                End If
               
                Set X = Sayfa2.Columns(4).FindNext(X)
                   
            Loop Until IlkDeger = X.Row
           
        Sayfa1.Cells(i, 8) = Param
        Param = Empty
   
    Next i
   
    Set X = Nothing

End Sub