VBA to replace empty cells with the cell above value

[Twin]

Hi

I am trying to write a macro that will search for the blank cells in the workbook and replace the blank cell with the value from the cell directly above it.

I have written the below code but it returns the word false. Any help would be appreciated

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Set Rng = ActiveSheet.UsedRange
Cells.Replace What:="", Replacement:=ActiveCell.Value = ActiveCell.Offset(-1, 0).Value

End Sub

Thanks

 

[dwarek]

now everything is working fine but i have new problem now with the same code ,the problem is when i enter the value for few times in the userform and its working fine and when i delete the values and enter the value from first it copies the data for the times i entered previously. FOR EXAMPLE IF I ENTER VALUE FOR 5 TIMES (THE FIELD ARE GETTING FILLED) THEN WHEN I DELETE THE VALUES AND ENTER THE VALUE FROM BEGINNING THE VALUES ARE AUTOMATICALLY GETTING ENTERED FOR 5 TIMES. PLEASE HELP ME