空いてるセルを埋める

こんな感じのエクセルの表で、A2にリンゴ、A4にみかんをいれたい、つまり空いてるセルを上のもので満たしたい時のマクロ。
行数は自分で調整して下さい。

Dim ID As String

For i = 1 To 9746 Step 1
If Range("A" & i).Value <> "" Then
ID = Range("A" & i).Value
Else
Range("A" & i).Value = ID
End If
Next i
End Sub