CÓDIGO:
Sub RellenarCeldasVacias()
Dim RangoSeleccionado As Range
Dim Celda As Range
' Pedir al usuario que seleccione el rango
On Error Resume Next
Set RangoSeleccionado = Application.InputBox("Seleccione el rango en el que desea rellenar las celdas vacías:", Type:=8)
On Error GoTo 0
' Verificar si el usuario seleccionó un rango
If RangoSeleccionado Is Nothing Then
MsgBox "No se ha seleccionado ningún rango.", vbExclamation
Exit Sub
End If
' Recorrer cada celda en el rango seleccionado
For Each Celda In RangoSeleccionado
' Si la celda está vacía, rellenar con el contenido de la celda superior
If IsEmpty(Celda.Value) Then
Celda.Value = Celda.Offset(-1, 0).Value
End If
Next Celda
' Convertir el rango seleccionado en valores
RangoSeleccionado.Value = RangoSeleccionado.Value
MsgBox "Las celdas vacías han sido rellenadas y el rango se ha convertido en valores.", vbInformation
End Sub
