How can I combine 2 columns of data into 1 and format it as follow

[Jonathan]

I have column A Part numbers and column B corresponding price for the part
number in A. I need to create a new column that would be formatted as
follows:
A1
B1
A2
B2
A3
B3

The A data needs to be formatted as "special" and the B column is a four
decimal number. When I try to copy and paste I do not capture the contents of
every set but rather every other one. Can I write a formula to capture each
consecutive line of data as alternating values in the same column?

 

[Don Guillett]

try this. UNcomment next to last line to delete col B
Sub aligncolumnsasone()
mc = 1
On Error Resume Next
For i = Cells(Rows.Count, mc).End(xlUp).Row To 2 Step -1
Cells(i, mc + 1).Copy
Cells(i + 1, mc).Insert
Next i
'columns(mc+1).delete
End Sub