¿Encontrar dato con macro y borras la información de a lado?

Buen día.

Creé un código para buscar y borrar datos con un InputBox, pero yo quiero que borre también los dos datos de la derecha.

¿Hay alguna macro para que busque y borre un rango donde se encuentra el dato encontrado?