Find row by key in excel

See more:

MS-Excel

macros

VBA

I am trying to make a macro in vba to update information on sheet two from sheet one. The individual records are tied together by keys. So, one key corresponds to a record in sheet 1 and also a record in sheet two. I have the macro start off by defining the rows that are filled with data (at this stage it only has the a column). Then it enters a for loop and gets the entire rows and compares the two rows and updates them if they aren't the same. I am not sure how I would write the line for the if statement to compare the two rows that have the same key (since they aren't going to be in sequential order). Any help would be greatly appreciated. I have posted the code that I have written so far below.

 Sub crossUpdate()
    Dim rng1 As Range, rng2 As Range, N As Long
    Dim rng1Row As Range
    Dim rng2Row As Range
    Dim i As Integer, j As Integer
    Dim Cell As Variant
    
    
    N = Cells(Rows.Count, "A").End(xlUp).row
    Set rng1 = Sheet1.Cells.Range("A2:A" & N)
    Set rng2 = Sheet2.Cells.Range("A2:A" & N)
    
    
    For i = 2 To rng1.Rows.Count
        Set rng1Row = rng1.Cells(i, 1).EntireRow
        Set rng2Row = rng2.Cells(i, 1).EntireRow
        Key = Sheet1.Range("A" & i)
            For j = 1 To rng1.Columns.Count
                If rng1Row.Cells(i, j).Value <> rng2Row.Cells(i, j).Value Then
                    
                 Else
                    
                End If
            Next j
    Next i
    
    End Sub