Compare columns and insert values in correct place

Hi! So, I have 2 very big columns with numbers that i want to compare. If a number in column C of the worksheet CADIM is also in column B of worksheet sheet3 it's ok, so I go to the next number. When a number is not in sheet3, I want to insert it in the correct position. Both columns are in decreasing order (although they have different sizes).
Example:
columnC(CADIM):
10
9
6
2

columnB(sheet3):
11
10
6
2
1

In this case the only number of CADIM that is not in sheet3 is the 9, so I need to insert a row between row2 and row3 and write 9 in it.
This is what I got so far, I'm only starting to learn VBA and I can't make this work... The current error is the first line in yellow, which I don't know what it means, and when I click the button with the macro nothing happens...

Any help would be appreciated!!

Private Sub CommandButton1_Click()    
    Dim res1 As String
    Dim res2 As String

    Set wk2 = ActiveWorkbook
    Set WK1 = Workbooks("CADIM PA's.XLS")

    Y = WK1.Sheets("CADIM").Range("C" & WK1.Sheets("CADIM").Rows.Count).End(xlUp).Row
    Z = wk2.Sheets("Sheet3").Range("B" & wk2.Sheets("sheet3").Rows.Count).End(xlUp).Row
    
        For i = 1 To Y
            For j = 1 To Z
                res1 = WK1.Sheets("CADIM").Range("C" & i).Value
                res2 = wk2.Sheets("sheet3").Range("B" & j).Value
                If res1 = res2 Then Exit For
                
                If res1 > res2 Then
                wk2.Sheets("sheet3").Range("B" & j).EntireRow.Insert
                wk2.Sheets("sheet3").Range("B" & j).Value = res1

                
                End If
            Next
        Next
End Sub

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

I'm afraid there's a little problem, sorry to bother again

I was trying the code in a test file, with only 2 columns on each sheet, and it all worked well. However, I tried to implement it on the file I really need, which has a lot of columns on Sheet3, and the code only moved 2 columns down. So I did some alterations to the code (the columns have changed) and this is what I have now:

Sub ertert()
Dim x, i&


With Sheets("Sheet3")
    x = .Range("B1:C" & .Cells(Rows.Count, 2).End(xlUp).Row).Value
End With

With CreateObject("Scripting.Dictionary")
    .CompareMode = 1
    
    For i = 1 To UBound(x): .Item(x(i, 2)) = x(i, 1): Next i
    With Sheets("CADIM")
        x = .Range("A1:B" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
    End With

    For i = 1 To UBound(x): .Item(x(i, 2)) = x(i, 1): Next i
    Sheets("Sheet3").Range("B1:C1").Resize(.Count).Value = WorksheetFunction.Transpose(Array(.items, .keys))
End With

With Sheets("Sheet3")
    With .Range("A1:AZ" & .Cells(Rows.Count, 2).End(xlUp).Row)
           .Sort Key1:=.Cells(2, 3), Order1:=xlDescending
    End With
    
End With
End Sub

Sheet3 was already done by someone and sheet CADIM was made by me, so now I'm using ONLY columns A and B. The ideal way to do what I need would be to insert an entire row on Sheet3 and then write in columns B and C the corresponding values of columns A and B from CADIM (all the other columns of that row would be left blank).
37em.jpg
What is happening now is it does insert the new values on columns B and C as I want, but it also inserts random (?) values on the rest of the columns. It appears that it copies those values from some other row, but I can't tell why because they are too many.