How to paste a value for a preceding row if a cell is empty

[kipperkidd]

I am given CSV output as per attached



How do I write a function for a large version of this spreadsheet that

Copies Jo Mack into the empty rows below it? i,e, Pseudocode below

Examine all rows beginning at row 2 (2 to x)
if cell Ax null then-->copy and paste A(x-1)

 

[venkat1926]

I have added one more row for checking purposes
A6 blank
B6 to D6
Oranges 45 6.23

try this macro and confirm whether it does what you want

Sub test()
 Dim j As Integer, r As Range, r1 As Range
 On Error Resume Next
 j = Range("B2").End(xlDown).Row
 Set r = Range("a2")
 Do
 Set r1 = r.End(xlDown)
 
 If r1.Row > j Then Set r1 = Cells(j, "A")
 Range(r, r1).SpecialCells(xlCellTypeBlanks).Select
 Selection.Formula = r.Value
 
 Set r = r1
 If Cells(r1.Row + 1, "b") = "" Then Exit Do
 Loop
 End Sub