VBA - How to compare a column in a multi-dimension array to determine if it exists in a dictionary object? If not, then delete entire row?

Option Explicit
Dim refWorksheet As Worksheet, srcWorksheet As Worksheet, trgWorksheet As Worksheet
Dim intRefTotalBooks As Integer, intRefLctOffColumn As Integer, intRefTotalColumns As Integer
Dim intSrcTotalColumns As Integer, intSrcBookColumn As Integer, intSrcTotalBooks As Integer
Dim rngRefLctOffShore As Range, rngSrcBooks As Range
Option Base 1
Sub BookEliminateTest()
 
Set refWorksheet = Sheet1
Set srcWorksheet = Sheet2
Set trgWorksheet = Sheet3
 
'Find the columns and hidden selecting them
intRefTotalColumns = refWorksheet.Columns.Rows(1).SpecialCells(xlCellTypeConstants, xlTextValues).Count
intRefLctOffColumn = refWorksheet.Cells(1, 1).Resize(1, intRefTotalColumns).Find("OFF_Shore_Books", LookIn:=xlValues, lookat:=xlWhole).Cells.Column
intRefTotalBooks = refWorksheet.Columns(intRefLctOffColumn).Rows.SpecialCells(xlCellTypeConstants, xlTextValues).Count
intSrcTotalColumns = srcWorksheet.Columns.Rows(1).SpecialCells(xlCellTypeConstants, xlTextValues).Count
intSrcBookColumn = srcWorksheet.Cells(1, 1).Resize(1, intSrcTotalColumns).Find("Book", LookIn:=xlValues, lookat:=xlWhole).Cells.Column
intSrcTotalBooks = srcWorksheet.Columns(intSrcBookColumn).Rows.SpecialCells(xlCellTypeConstants, xlTextValues).Count
 
'Dictionary setup for Reference
Dim dicOffBooks 'Declaring dictionary object
Dim strOffBooks As String 'declaring books variable as string
Dim i As Integer
Set dicOffBooks = CreateObject("Scripting.Dictionary")
 
'Go through the reference sheet and add all the books to the dictionary
i = 1
Do
        strOffBooks = refWorksheet.Cells(i + 1, intRefLctOffColumn).Value
        dicOffBooks.Add i, strOffBooks
        i = i + 1
Loop Until IsEmpty(refWorksheet.Cells(i + 1, intRefLctOffColumn).Value) 'loop the inx until the cells are empty
 
'Dictionary retrieval methods
Dim dicOffBooksItems, dicOffBooksKeys, dicOffBooksItemsCount
Dim lngDicItemsCount As Long
 
dicOffBooksKeys = dicOffBooks.keys
dicOffBooksItems = dicOffBooks.items
dicOffBooksItemsCount = dicOffBooks.Count
lngDicItemsCount = dicOffBooksItemsCount
 
'Set rngSrcBooks = srcWorksheet.Cells(2, intSrcBookColumn).Resize(intSrcTotalBooks - 1)
Set rngSrcBooks = srcWorksheet.Cells(2, 1).Resize(intSrcTotalBooks - 1, intSrcTotalColumns)
Dim arrSrcTotalBooks() As Variant
 
ReDim arrSrcTotalBooks(1 To intSrcTotalBooks, 1 To intSrcTotalColumns)
 
arrSrcTotalBooks = rngSrcBooks.Value
trgWorksheet.Cells(1, 1).Resize(intSrcTotalBooks - 1, intSrcTotalColumns).Value = arrSrcTotalBooks