As an alternative...

Sub test()
Columns("A:A").Copy Range("B1")
Columns("B:B").SpecialCells(xlCellTypeBlanks).Dele te Shift:=xlUp
End Sub


--
XL2002
Regards

William



"William" wrote in message
...
| 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/
| |
|
|
|