Sometimes when the data increases, we need to copy the contents of the previous row into the next row. This code will help you do that easily.
Dim r As Long, c As Integer, Lastrow As Long
Lastrow = .Cells(.Rows.Count, "E").End(xlUp).Row
For c = 1 To 4
For r = 4 To Lastrow
If Cells(r, c) = "" Then
If Cells(r, 5) <> "" Then
Cells(r, c).Value = Cells(r - 1, c).Value
Copy the above code into a standard module.
The applications/code on this site are distributed as is and without warranties or liability. In no event shall the owner of the copyrights, or the authors of the applications/code be liable for any loss of profit, any problems or any damage resulting from the use or evaluation of the applications/code.