Collapse Columns

Hello

I have a spread sheet with 4 columns

Column A= Street Address
B = Zip Code
C = Street Address
D = Zip Code

I'm looking for a macro that will collapse the COLUMN C and D under ROW 1 in COUMN A and B one row at a time. ( so bringing down c and d under a and b one row at a time utill no more data in c and d)

Below is the dummy data.

Thanks.



Column A B C D

6301 ARCHIBALD AVE 92225 100 WILSHIRE BLVD 700 90401
948 S DUNSMUIR AVE 90036 5525 W OLYMPIC BLVD 302 90036
3021 VIA LA SELVA 90274 3021 VIA LA SELVA 90274
3740 COUNTRY PARK DR 95661 3740 COUNTRY PARK DR 95661