Autofill values

[Arafat]

Hi All

I need a macro to repeat the last value in the column A depending on the Number of values present in the Column B.

Ex:
ColA Colb
Dad 56
Mom 78
Son 67
89
78

So the value "SON" should be repeated until the 78 in the column B.

Thanks in Advance

 

[VoG]

Try

Sub test()
Dim LR As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
With Range("A1:A" & LR)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
End Sub

 

[Arafat]

Perfect !!! Thanks alot