Fill in vba

Fill in function u/ mengisi baris yang kosong.

Sub FillIn()
On Error Resume Next
Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("A1").CurrentRegion.Value = Range("A1").CurrentRegion.Value
End Sub