I'll take a look at the files.
I changed this line
tonewWBCurrentDesc = newWBSheet.Cells(newWBDataRow, 4)so that the same columns were being compared. It worked okay for me.newWBCurrentDesc = newWBSheet.Cells(newWBDataRow, 6)
Let me know if that fixes it for you.