Aligning data in two columns in excel VBA

Question

I'm new to VBA Excel. I wanted to write a code that aligns data in Column A to that in Column B then deletes the empty rows left My Data example is as follows:

Unsorted Data

Desired output looks like this.

Sorted Data

https://stackoverflow.com/questions/9379673/excel-vba-delete-empty-rows — Unknown, Sep 13 '17 at 14:36

score 1 · Accepted Answer · answered Sep 13 '17 at 14:34

1

Assuming data is as follows

then try the following code

Sub Demo()
    With ThisWorkbook.Worksheets("Sheet7")  'change Sheet7 to your data sheet
        .Range("A1:B23").Cells.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    End With
End Sub

Change range as per your data. This will give result as

answered Sep 13 '17 at 14:34

Mrig

11,612
2
13
27

Works Perfectly!! – WanjauSam Sep 13 '17 at 14:43

Aligning data in two columns in excel VBA

1 Answers1