Filling Down With An Offsetting Found Range

I am trying to replace blank cells in a range with the value a found cell. For example, in column A there are blank cells interspersed with cells that have "Account:" in them. For each row that has "Account:" there is a specific account number in column B.
A B
Row
1 Account: 234
2 gobbly
3 gook
4 Account: 456
5 stuff


I would like to fill the blank cells down with the appropriate number (A2 = 234, A3 = 234, A5 = 456). I've tried various integrations of the Fill Down with Macros code and Aaron's Find_Range code but haven't figured it out. The closest I've come is filling all the blanks with the first account number (A2 = A3 = A5 = 234).



Sub FillAccounts()

Dim rRange1 As Range, rRange2 As Range
Dim account As Range
Set rRange1 = Worksheets("test").Range("A2:b" & _
Worksheets("test").Range("b65536").End(xlUp).Row)
On Error Resume Next
Set rRange2 = rRange1.SpecialCells(xlCellTypeBlanks) ...................