How to get records in excel ADO

[domfootwear]

Dear All,

Pls help me the way to get records same as the result as the att.

Thanks in advance.

[p45cal]

Sub blah()
With Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row)
.Cut Destination:=.Offset(1)
.Offset(-1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub