Fill in the blanks...

[omnivl]

How in VBA can i fill in the blank rows and fill them...it needs to find the name after the blank and copy both fields to the above cells. Appreciate any help

So from this.....

V00006	Action Office Machines P/L
V03393	Active Sound Services
V03271	Adaptalift Group Pty Ltd
V02472	Adventure Junkie - AJ Events Pty Ltd
V00595	Air Liquide Australia Limited
V01683	Ali Baxter - Soulstice
V03243	Alison Green Designs
V02972	A-List Entertainment

<tbody>
</tbody>

to this....

V00006	Action Office Machines P/L
V03393	Active Sound Services
V03271	Adaptalift Group Pty Ltd
V02472	Adventure Junkie - AJ Events Pty Ltd
V02472	Adventure Junkie - AJ Events Pty Ltd
V00595	Air Liquide Australia Limited
V00595	Air Liquide Australia Limited
V00595	Air Liquide Australia Limited
V00595	Air Liquide Australia Limited
V00595	Air Liquide Australia Limited
V01683	Ali Baxter - Soulstice
V03243	Alison Green Designs
V02972	A-List Entertainment

<tbody>
</tbody>

 

[Rick Rothstein]

Give this macro a try...

Sub FillBlanksFromBelow()
  Dim LastRow As Long
  LastRow = Cells(Rows.Count, "B").End(xlUp).Row
  With Range("A1:B" & LastRow)
    .SpecialCells(xlBlanks).FormulaR1C1 = "=R[1]C"
    .Value = .Value
  End With
End Sub

 

[omnivl]

Give this macro a try...

Sub FillBlanksFromBelow()
  Dim LastRow As Long
  LastRow = Cells(Rows.Count, "B").End(xlUp).Row
  With Range("A1:B" & LastRow)
    .SpecialCells(xlBlanks).FormulaR1C1 = "=R[1]C"
    .Value = .Value
  End With
End Sub

You sir are a Genius!