Copiar Celdas Automáticamente con Macro

Como todo oficinista nos hemos encontrado con este problema, tenemos celdas combinadas y debemos convertirlas a celdas y completar los renglones. En este ejemplo parece no haber ningún problema, pero qué pasa si tenemos un archivo de 10 mil, o 100 mil registros?cuanto tiempo necesitaríamos?. Aquí les dejo una Macro para copiar celdas automáticamente

Aquí el problema. Tenemos celdas combinadas

Ahora debemos "descombinar" las celdas, seleccionando la celda combinada y dar clic en el botón "Merge & Center" o "Combinar y Centrar" segun el idioma de tu Office

Debe quedar así:

Ahora viene la tarea "Dificil" pero no te preocupes, aqui te comparto el código de la Macro para que solo te dediques a copiarla.

Nos vamos a la ficha "View " o "Vista" y seleccionamos "Macros"

Creamos una nueva macro y pegamos el siguiente código:

Sub COPIA()

Do While ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 1).Value <> ""

x = ActiveCell.Value
ActiveSheet.Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
Regresa:
If ActiveCell.Value = "" Then
ActiveCell.Value = x
ActiveSheet.Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
Else
x = ActiveCell.Value
ActiveSheet.Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
GoTo Regresa
End If
ActiveSheet.Cells(ActiveCell.Row - 1, ActiveCell.Column).Select

Loop
ActiveCell.Value = ""
End Sub

Nos situamos en la primera celda y damos clic en ejecutar:

Y este sería el resultado final. Así que si tienen filas interminables, con este macro se ahorran muchísimo tiempo.

Tecnodemia

Copiar Celdas Automáticamente con Macro