Insertar fila si celda esta ocupada y pegar rango de datos
Estoy tratando de hacer lo siguiente mediante una macro; tengo en la columna U una serie de datos indeterminada de manera consecutiva (no hay celdas en blanco), en la columna Z tengo una serie de datos de forma discontinua (presencia de celdas en blanco). Lo que quiero hacer es que la macro recorra la columna Z y donde encuentre datos,
1.- Se inserte una fila completa debajo de la celda encontrada
2.- Seleccione y copie el rango comprendido entre la celda encontrada y 4 celdas hacia la derecha
3.- Pegue el rango copiado en la fila en blanco insertada empezando la celda U#.
Sera que me pueden ayudar con la macro... Muchas gracias.
Nota: el numero de filas a buscar es variable y la unica columna con datos consecutivos es la U.
1 Respuesta
Prueba esta macro:
Sub Macro()
Range("U1").Select
Do
If ActiveCell.Offset(0, 5).Value <> "" Then
ActiveCell.Offset(1, 0).EntireRow.Insert Shift:=xlDown
Range(ActiveCell, ActiveCell.Offset(0, 4)).Copy ActiveCell.Offset(1, 0)
End If
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = ""
End Sub
