Macro cortar y pegar a una celda variable en excel

He acudido a uds. Para ver la posibilidad de que me puedan asesorar respecto a lo siguiente:

Tengo una hoja en la cual en la columna "K" hay datos, pero entre ellos existen celdas vacías y no tienen un patrón definido, lo que requiero hacer es:

1.- Que detecte hasta donde hay datos (celdas llenas)

2.- Que se ubique en la primera celda que tiene dato y seleccione el rango de esa celda mas las tres siguientes a la derecha y corte

3.- Tomando como referencia la celda que encontro ese dato en "K" suba una fila y se ubique en tres celdas a la derecha (que seria en la columna "N") y pegue esa selecion de rango

4.- Que regrese a la columna "K" y ubique la siguiente celda con datos y repita el proceso

No son celdas fijas, varían en función a los datos que mes con mes se emite de un reporte, lo que si no cambia es que siempre estarán en la columna"K" y los datos se pegaran en "N"

Tengo este código pero al ejecutarlo solo realiza el primer registro y no continua con el resto.

Sub CORTARDATOS()

Do
Range(ActiveCell. Offset(0, 0), ActiveCell.Offset(0, 3)). Cut
ActiveCell.Offset(-1, 3).Select
ActiveSheet.Paste
Range("K3:" & Range("K3").End(xlDown).Address).Select
Loop While Not IsEmpty(ActiveCell)
End Sub

Añade tu respuesta

Haz clic para o