Find Unique Values, Transfer Adjacent Cell To Another Workbook

I have a main workbook that is meant to summarize data from other workbooks

In Row 6 from column H on I have workbook names in each cell

Column G in all workbooks (including the main one) contains our branch #'s for our offices

For each workbook listed in row 6 , I need to open that workbook (I have that setup with the code below---notice there is an AX.xls that is appended to the file names listed in row 6 in order for the names to match what is in the windows directory)

In the newly opened workbook, I need to, for each value in column G, copy the value from adjacent cell in column H (the dollar value) then search column G of the main workbook for a matching branch and paste the value to the appropriate row under the workbook name column (remember workbook names are in row 6)

The trouble is, for each branch in column G in the newly opened workbook that cannot be found in the main workbook, I need to paste the new branch # at the bottom row of/in column G and the $ value (H column value from the newly opened workbook) to the corresponding row under the workbook name column

Sub OpenWBs()

Dim Rng As Range
Dim WB As Workbook
Dim MyPath As String
Dim lastCol As Integer
Dim newRange As Range

lastCol = Cells(6, Columns.Count).End(xlToLeft).Column

Set newRange = Range(Cells(6, 1), Cells(6, lastCol))

MyPath = "F:AccountingAPAdvertising AccountsLA TimesAgentExtractorCompletedLIST"

For Each Rng In newRange '