VBA - matching and adding value with conditions - please help

[Ella63112]

Concept only.

Sub FindValues()
Dim lookUpSheet As Worksheet, updateSheet As Worksheet
Dim valueToSearch As String
Dim i As Integer, t As Integer
Dim cKNum As Integer
Dim shpNum As Integer
Set lookUpSheet = Worksheets("Scanned")
Set updateSheet = Worksheets("Shipped")
Set cKNum = updateSheetSheet(t, 12)
Set sHipNum = updateSheet(t, 16)
'get the number of the last row with data in Scanned and in Shtpped
lastRowLookup = lookUpSheet.Cells(Rows.Count, "A").End(xlUp).Row
lastRowUpdate = updateSheet.Cells(Rows.Count, "B").End(xlUp).Row
'for every value in column A of Scanned
For i = 1 To lastRowUpdate
     valueToSearch = updateSheet.Cells(i, 1)
     'look for the match in column B of Shipped
     For t = 2 To lastRowLookup
        'if found a match, add I to cKNum value and proceed to the next value
        If lookUpSheet.Cells(t, 2) = valueToSearch Then
            cKNum = cKNum +1
            If cKNum = shipNum Then
                  ‘Look for next match
                  Next t
            Else
                  Msgbox “Only 1 Match Found”
            End If
            Exit For
        End If
     Next t
Next i
 End Sub

I'm sure someone will tell me I've got it wrong.

I can't get it to work at all. Is there commands here that are depenant on the version I'm using?