将特定数据匹配并粘贴到特定列中

Question

目前卡住了。
基本上就是我所拥有的：

Sub Button1_Click()

    Dim rngQuarterHeader As Range
    Dim rngHeaders As Range

    Dim x As Workbook


    Set rngHeaders = Range("6:6")
    Set rngQuarterHeader = rngHeaders.Find(what:="2Q17", after:=Cells(6, 6))

    rngQuarterHeader.Offset(0, 1).EntireColumn.Insert
    rngQuarterHeader.Offset(0, 1).Value = "3Q17"

    'Open workbook first
    Set x = Workbooks.Open("/Users/xxxx/Desktop/Project/Raw_Data.xls")

    'Now, copy data:
    x.Sheets("Sheet1").Range("A:C").Copy

    'paste to current worksheet:
    ThisWorkbook.Sheets("BRU").Range("Z:Z").PasteSpecial

    'Close x:
    x.Close

End Sub

所以我想要完成的是，将特定原始数据复制并粘贴到我的活动工作表上，特定原始数据有三列。

COL Z | COL AA | COL AB
INFO1 | TYPE1  | VALUE1
""""""| TYPE2  | VALUE2
INFO2 | TYPE1  | VALUE1
""""""| TYPE2  | VALUE2

COLUMN Z是两个合并在一起的单元格。

如果COLUMN Z与COLUMN A匹配，则将TYPE1 | VALUE1 and TYPE2 | VALUE2复制到新创建的列3Q17

我真的很期待听到您的回复！

提前谢谢