2つのブック間の列を2行目から比較して、完全一致したら、片方のブックの指定のセルをコピーして、片方のブックの指定のセルに貼り付けたい

「Microsoft Scripting Runtime」を参照設定をするのと、
SOURCE_FILE_PATHのパスを修正してから実行して下さい。

ブックA、ブックBともに、同じ列内には重複データはおそらく1つもありません。

重複データが有る時は、後から出てきたデータ（下の方に有るデータ）が表示されます。

'参照設定： Microsoft Scripting Runtime

'---------- 自ワークシート関連 ----------
Private Const KEY_ITEM_SHEET_NAME   As String = "Sheet1"

'検索基準キーとなるデータ列
Private Const KEY_ITEM_COL  As String = "AO"

'データ開始行
Private Const KEY_ITEM_BEGIN_ROW    As Long = 2

'基準セルから書き込みするセルへのオフセット
Private Const COL_OFFSET_DEST_CELL  As Long = -7
Private Const ROW_OFFSET_DEST_CELL  As Long = -1


'---------- 参照先ワークシート関連 ----------
'参照するブックのフルパス
Private Const SOURCE_FILE_PATH  As String = "C:\Datas\ブックB.xlsx"

Private Const SOURCE_SHEET_NAME As String = "Sheet1"

'参照する列
Private Const SOURCE_COL        As String = "G"

'データ開始行
Private Const SOURCE_BEGIN_ROW  As Long = 2

'基準セルから読み込みするセルへのオフセット
Private Const COL_OFFSET_SRC_CELL   As Long = 10
Private Const ROW_OFFSET_SRC_CELL   As Long = -1


Public Sub copyItemsSubValue()

    Dim wsOwn       As Worksheet
    Dim lEndRow     As Long
    Dim lCurrentRow As Long
    Dim sKeyValue   As String
    Dim lKeyItemCol As Long
    Dim lResult     As Long
    Dim dicSrc      As New Dictionary

    Call addDictionary(dicSrc)

    '出力先ワークシートの取得
    Set wsOwn = ThisWorkbook.Worksheets(KEY_ITEM_SHEET_NAME)

    lKeyItemCol = wsOwn.Columns(KEY_ITEM_COL).Column

    'キーデータ列の最終行取得
    lEndRow = wsOwn.Cells(wsOwn.Rows.Count, lKeyItemCol).End(xlUp).Row

    With wsOwn
        For lCurrentRow = KEY_ITEM_BEGIN_ROW To lEndRow
            'キーの値を取得
            sKeyValue = .Cells(lCurrentRow, lKeyItemCol).Value

            If Len(sKeyValue) > 0 Then
                If dicSrc.Exists(sKeyValue) Then
                    .Cells(lCurrentRow, lKeyItemCol).Offset(ROW_OFFSET_DEST_CELL, COL_OFFSET_DEST_CELL).Value = dicSrc.Item(sKeyValue)
                End If
            End If
        Next lCurrentRow
    End With

PostProcessing:
    If Err.Number <> 0 Then
        Debug.Print CStr(Err.Number) & Err.Description
    End If

    Set wsOwn = Nothing

    Debug.Print "Done."

End Sub

Private Sub addDictionary(ByRef dicSrc As Dictionary)

    Dim wbSrc       As Workbook
    Dim wsSrc       As Worksheet
    Dim lSrcCol     As Long
    Dim lLastRow    As Long
    Dim i           As Long
    Dim sKey        As String
    Dim sValue      As String
    Dim lCol        As Long

    On Error GoTo PostProcessing

    '参照先ワークシートの取得
    Set wbSrc = Workbooks.Open(SOURCE_FILE_PATH, ReadOnly:=True)
    Set wsSrc = wbSrc.Worksheets(SOURCE_SHEET_NAME)

    lCol = wsSrc.Columns("G").Column

    lLastRow = wsSrc.Cells(wsSrc.Rows.Count, lCol).End(xlUp).Row

    For i = SOURCE_BEGIN_ROW To lLastRow
        sKey = wsSrc.Cells(i, lCol).Value

        If Len(sKey) > 0 Then
            dicSrc(sKey) = wsSrc.Cells(i, lCol).Offset(ROW_OFFSET_SRC_CELL, COL_OFFSET_SRC_CELL).Value
        End If
    Next i

PostProcessing:
    If Err.Number <> 0 Then
       Debug.Print CStr(Err.Number) & ":" & Err.Description
    End If

    If Not wbSrc Is Nothing Then
        If Not wsSrc Is Nothing Then
            Set wsSrc = Nothing
        End If

        wbSrc.Close SaveChanges:=False

        Set wbSrc = Nothing
    End If

End Sub