When you say data -do you mean numeric constants or both numeric and text?
Maybe you could use the SpecialCells method. As an example this line of code
would copy numeric constants from Column A of the activesheet to Sheet2.

Sub test()
Columns(1).SpecialCells(xlCellTypeConstants, _
xlNumbers).Copy Sheet2.Range("A1")
End Sub

Remove the second argument (xlnumbers) if you want both numeric and text
constants.

"C Brandt" wrote:

I create a column of formulas, 9600 cells long, in which some result in a
text entry. I then copy this column and Paste Special / Value, then sort,
descending, moving the cells with data to the top. I then manually select
only the cells with data and copy them elsewhere.

I have been able to create a macro that does all the above, except select
only the cells with data. How does one select the part of a column that has
data?

Once I learn this trick, I can do a lot of automating of the operation of
the spreadsheet.
I am using Excel 2000 in Windows 2000

Any assistance would be appreciated,

Thanks, in advance,

Craig