VBA Lookup one cell Value and Search in Another Column, if Matches Copy Beside Cell value

Dear Programmers,

I need small Modification in my code, i.e, Lookup one cell Value if Matches Copy Adjacent Cell Text to Another Cell

and required small modification and fixing minor bugs.

bug is some times at "S" Column produced as "0" instead of numeric values.kindly test my code. and some times are working, what happen to my code???


Thanking you,
Best regards