Code Loops Through Range Instead Of Crashing On Second Iteration

Not come across this issue before where the Code works once then fails to iterate!

In attached file 140405 Loop not working.xlsm, for each cell in C4:C27 on the Inventory Sheet, the Code should:

Look in the Data Input sheet.

Find the Item Number in Col B corresponding to the number in Col A of the Inventory Sheet.

Find the quantity on the Data Input sheet corresponding to that number.

Copy the quantity into Col H of the Inventory sheet.

The Code works for the first row then throws error message "Run Time error 13" Type Mismatch!

VB:
Sub OFFLOAD()
Dim Dest As Range, Dest1 As Range, oCell As Range
Set Dest = Sheet2.Range("C:C")
Set Dest1 = Sheet2.Range("B:B")

Sheets("INVENTORY").Select

[Code] .....