Hi woknick

Sub test()
'Assuming all cells are constants
Range("A1:A33").SpecialCells(xlCellTypeConstants, 23).Copy Range("B1")
'If you then want to delete Column A...
Columns("A:A").Delete Shift:=xlToLeft
End Sub

--
XL2002
Regards

William



"woknick " wrote in message
...
| Here is my problem: I have a column that is 33 cells deep that has
| scattered numbers in that column. For example
|
| 1
|
| 5
|
| 9
| 12
| 13
|
| 15
|
|
| 17
|
| where the spaces are blank cells. I want to grab those numbers and
| place them is an output that looks like
| 1,5,9,12,13,15,17
|
| So I just want to pull those numbers from those cells and display them
| together.
|
| thanks in advance
|
|
| ---
| Message posted from http://www.ExcelForum.com/
|