Macro mover celdas

Hola a todos, necesito por favor una macro que baje por una columna después de aplicar un filtrado, seleccione una celda y la de la derecha y mueva las dos una celda a la izquierda y así sucesivamente.

Muchas gracias