Macro to search for phrase and delete that cell and 1 cell to the right.

Need to search and find text, then delete that cell and the cell to its immediate right. Then move the cells up.

Search would be anywhere on the worksheet. Not sure a sample will help much, but it is attached.

TEST
A 17
B 1
C 1
D 1
E 1
TEST TOTAL 21

This is what is in the workbook, I want to be able to search for TEST TOTAL, and it delete that and "21" and then move cells up.