Sub TripBee()
Dim r1 As Range, r2 As Range
Set r1 = Application.InputBox(prompt:="select source range", Type:=8)
Set r2 = Application.InputBox(prompt:="select destination cell", Type:=8)
For Each r In r1
If IsNumeric(r) Then
r.Copy r2
Set r2 = r2.Offset(1, 0)
End If
Next
End Sub

--
Gary''s Student - gsnu200908


"Trip Bee" wrote:

I have a spreadsheet which has text values and numeric values in different rows and columns. Is there a macro that can select a range (this range can be very large) and the only past the cells with a numeric value into one column? Any help is greatly appreciated

EggHeadCafe - Software Developer Portal of Choice
The Lowly HTTP HEAD Request
http://www.eggheadcafe.com/tutorials...ead-reque.aspx
.