If you meant concatenate rather than Merge

Sub AAAA()
Dim i As Long
Application.DisplayAlerts = False
For i = 1 To 1000 Step 2
Cells(i, 1).Value = Cells(i,1).Value & " " & Cells(i+1,1).Value
Cells(i+1,1).Value = ClearContents
Next
Application.DisplayAlerts = True
End Sub

--
Regards,
Tom Ogilvy


"babu" wrote in message
...

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