Move data from columns to row cells

[Renito]

I need help please. I would like to create a macro that marks and "X" if the number (99,98, and 2) under lot cell f Charlee match to the number on the column 4,5, 7 in this case and after that delete the blank cell rows. and continue with next name.

Please see sample below:

Name Location lot 99 98 1 2 1001 1002-1200
Charlee cd lot X X X
blankcell AB 99
blankcell AC 98
Blankcell NA 2
Beta NA lot x X X X X X, ETC
blankcell 3e 1001
blankcell rt 1002
blankcell UPTO 1200
GAMA YG lot
Blankcell gh 99
blankcell fg 1


Thank you so much for your help,

Best Regards.