You could use this macro.

Sub CombineCols()
''combine 2 columns to one with data from Col 2 being inserted
''between data from Col 1
Range("A1").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).EntireRow.Select
ActiveCell.EntireRow.Insert
ActiveCell.Select
ActiveCell.Value = ActiveCell.Offset(-1, 1).Value
ActiveCell.Offset(-1, 1).Value = ""
ActiveCell.Offset(1, 0).Select
Loop
End Sub


Gord Dibben Excel MVP

On Wed, 15 Jun 2005 15:50:58 -0500, mayhewvb
wrote:


All,

My issue is that I have 2 columns of data, Column A and Column B. What
I would like to do is combine these 2 columns into 1 that would result
in something like this:

A1
B1
A2
B2
A3
B3
etc

There are 1000+ entries in each column and I have tried creating a 3rd
column plugging into the cells the following, hoping to create the
ability to click and drag and fill the rest of the relative values:

=A1
=B1
=A2
=B2
=A3
=B3
etc

However, when I click and drag, I am not able to keep the pattern
going. It always seems to revert to something like this after I try to
click and drag the fill box:

A1
A2
A3
A4

Any thoughts on a better way to accomplish this? Or perhaps a tip to
fill the pattern down the column? Sorry if I am missing something
totoally obvious.

Any help is appreciated!