Macro mover valores de celdas

Hola a todos, necesito por favor una macro que después de haber filtrado una base de datos baje por una columna, seleccione la celda esa y la de la derecha y mueva el contenido de las mismas un columna a la izquierda y así sucesivamente. Muchas gracias