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.....

[TABLE="class: grid, width: 144"]
<tbody>[TR]
[TD]V00006
[/TD]
[TD]Action Office Machines P/L[/TD]
[/TR]
[TR]
[TD]V03393[/TD]
[TD]Active Sound Services
[/TD]
[/TR]
[TR]
[TD]V03271[/TD]
[TD]Adaptalift Group Pty Ltd
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]V02472[/TD]
[TD]Adventure Junkie - AJ Events Pty Ltd[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]V00595[/TD]
[TD]Air Liquide Australia Limited[/TD]
[/TR]
[TR]
[TD]V01683[/TD]
[TD]Ali Baxter - Soulstice[/TD]
[/TR]
[TR]
[TD]V03243
[/TD]
[TD]Alison Green Designs[/TD]
[/TR]
[TR]
[TD]V02972[/TD]
[TD]A-List Entertainment
[/TD]
[/TR]
</tbody>[/TABLE]


to this....

[TABLE="class: grid, width: 144"]
<tbody>[TR]
[TD]V00006[/TD]
[TD]Action Office Machines P/L[/TD]
[/TR]
[TR]
[TD]V03393[/TD]
[TD]Active Sound Services[/TD]
[/TR]
[TR]
[TD]V03271[/TD]
[TD]Adaptalift Group Pty Ltd[/TD]
[/TR]
[TR]
[TD]V02472[/TD]
[TD]Adventure Junkie - AJ Events Pty Ltd[/TD]
[/TR]
[TR]
[TD]V02472[/TD]
[TD]Adventure Junkie - AJ Events Pty Ltd[/TD]
[/TR]
[TR]
[TD]V00595[/TD]
[TD]Air Liquide Australia Limited[/TD]
[/TR]
[TR]
[TD]V00595[/TD]
[TD]Air Liquide Australia Limited[/TD]
[/TR]
[TR]
[TD]V00595[/TD]
[TD]Air Liquide Australia Limited[/TD]
[/TR]
[TR]
[TD]V00595[/TD]
[TD]Air Liquide Australia Limited[/TD]
[/TR]
[TR]
[TD]V00595[/TD]
[TD]Air Liquide Australia Limited[/TD]
[/TR]
[TR]
[TD]V01683[/TD]
[TD]Ali Baxter - Soulstice[/TD]
[/TR]
[TR]
[TD]V03243[/TD]
[TD]Alison Green Designs[/TD]
[/TR]
[TR]
[TD]V02972[/TD]
[TD]A-List Entertainment[/TD]
[/TR]
</tbody>[/TABLE]

 

[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!