Dante Amor respondió:
Te anexo la macro Sub Rellenar_B() 'Por.Dante Amor On Error Resume Next With Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks) .FormulaR1C1 = "=RC[-1]" .Value = .Value End With End Sub . 'S aludos. Dante Amor....