Help Building Array

Hello All,

This goes hand in hand with the thread located here, but it is only a small portion of it. Trying to build an array of Sheet 1 Column A & B and Sheet 3 Column A & B, then compare and where they match move the values from Sheet 3 to Sheet 1.

This is the code that I have so far, and I have never used variables before.

Sub Date_Range()

    Sheet3.Select
    Dim ItemLookup3        As Long
    ItemLookup = Cells.Find(What:="*", _
    SearchDirection:=xlPrevious, _
    SearchOrder:=xlByRows).Row
    
    Sheet1.Select
    Dim ItemLookup1        As Long
    ItemLookup = Cells.Find(What:="*", _
    SearchDirection:=xlPrevious, _
    SearchOrder:=xlByRows).Row
    
    Dim MyArr3 As Variant
    Dim MyArr1 As Variant

    With Sheets(3): Set MyArr3 = .Range(.[a2], .Cells(Rows.Count, "a").End(xlUp)): End With
    With Sheets(1): Set MyArr1 = .Range(.[a2], .Cells(Rows.Count, "a").End(xlUp)): End With: i = 1

    Sheet3.Select
    Dim LoopColumn As Long
    Dim LoopColumn2 As Long
    For LoopColumn = 2000 To 2 Step -1
        If "MyArr3" = "MyArr1" Then
            Range(Cells(LoopColumn, 3), Cells(LoopColumn, 11)).Copy
            Sheet1.Select
            Cells(, 1) = "MyArr1"
            Range(Cells(, 4)).PasteSpecial Paste:=xlPasteValues
        End If
    Next LoopColumn

End Sub