Try this macro :-

'-----------------------------------
Sub test()
Dim Arow As Long
Dim Brow As Long
Brow = 1
For Arow = 1 To 200
If ActiveSheet.Cells(Arow, 1).Value < "" Then
ActiveSheet.Cells(Brow, 2).Value = _
ActiveSheet.Cells(Arow, 1).Value
Brow = Brow + 1
End If
Next
End Sub
'--------------------------------------

--
Message posted from http://www.ExcelForum.com