Найти значение в другой книге и скопировать определенные ячейки из одной строки в несколько столбцов

Question

Я пытаюсь создать макрос, в котором выберите одно значение из рабочей книги и поищу его в другой рабочей книге, затем, когда найду значение, выделите ячейки, например, массив (после активной ячейки переместите одну ячейку вправо и выберите ячейку, затем выберитееще одну ячейку после 2 столбца и выберите Like: (C2, F2, I2, L2 ....). скопируйте и вставьте ее в первую рабочую книгу

возможно, это немного сложно объяснить, но я думаю, что кодбыть лучше:

Sub Find_copy_paste()

    Dim FindString As String
    Dim Rng As Range
    Dim y As Workbook
    Dim x as Workbook

    Set y = Workbooks("H\Data1.xlsm")
    Set x = Workbooks.Open("G\info.xlsx")

    FindString = y.Sheets("Teams").Range("A121").Value

    If Trim(FindString) <> "" Then
        With x.Sheets("Claims").Range("B:B")
            Set Rng = .find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
            Application.Goto Rng, True
            **'' I want hier to select actieve cell then one step to the right and start to copy array  ( C2,F2,I2,L2 ....) then paste it transpose in y workbook**

            Else
                MsgBox "Nothing found"
            End If
        End With
    End If

End Sub

Любое тело может помочь ??

Спасибо:)