excel - data merger in two cells

[babu]

I have a data spread in a column upto 1000 cells (A1 to
A1000). I need to merge data from two consecutive cells
(for exapmle A1 and A2; A3 and A4, and so on) into one
cell for all of them.

I would appreicate if a formula is avilable in Excel.

thanks
Babu

 

[Tom Ogilvy]

Sub AAAA()
Dim i As Long
Application.DisplayAlerts = False
For i = 1 To 1000 Step 2
Cells(i, 1).Resize(2).Merge
Next
Application.DisplayAlerts = True
End Sub