Remove List Item And Cell Contents, Then Shift Up

how to code the following?

I need to remove an item from a list, find its match in column "A", remove the matching cell and then shift the remainder of the column up to remove the empty cell.

If this helps, there are 5 different sheet names, and I'm working with range A4:Range("A" & Rows.Count).End(xlUp).Row for the items in the list.

To make it as simple as I can:
COLUMN A
one
two
three
four

user clicked on two in the list, so column A now looks like, with no gap between one and three:

COLUMN A
one
three
four

One sheet actually needs it to do the same removal to identical rows in column B as well (i.e. remove A10 and B10, or A45 and B45, etc.)