Auto highlight cells in a column and move it to the bottom of another cell with a macro?

I have the following

Column A
Title Alpha
A
B
C
D
E
F

Column B
Title Beta
G
H
I

Is it possible to move Column B (minus "Title Beta") to the bottom of column A? So it become:

Column A
Title Alpha
A
B
C
D
E
F
G
H
I

The data in Column A and Column B are dynamic and can increase or decrease.

Cheers

Maybe:

Please Login or Register  to view this content.

Sorry for the late reply, been on holiday.

Can someone explain to me the purpose of the following in BOLD

lr = Cells(Rows.Count, 2).End(xlUp).Row

Range("B2:B" & lr).Cut Range("A" & Rows.Count).End(3)(2)

Thanks

lr = Cells(Rows.Count, 2).End(xlUp).Row

The 2 stands for the Column number or Column "B"

Range("B2:B" & lr).Cut Range("A" & Rows.Count).End(3)(2)

The (3) same as (xlUp), (2) same as Offset(1).