I have a large range (24 columns by 50 rows) and the majority of the cell
values are zero, but there are about 10-20 that are not. However, these
10-20 values change position depending on other data. Does anyone have a
macro that can find the cells that have values and put the values into the
first column of another worksheet?

Try something like

Dim Rng As Range
Dim Dest As Range
Set Dest = Worksheets("Sheet2").Range("A1")
For Each Rng In Range("A1:X50").Cells '<< Change range as
required
If Rng.Value < 0 Then
Dest.Value = Rng.Value
Set Dest = Dest(2, 1)
End If
Next Rng


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Travis.Broersma"
wrote in message
...
I have a large range (24 columns by 50 rows) and the majority of
the cell
values are zero, but there are about 10-20 that are not.
However, these
10-20 values change position depending on other data. Does
anyone have a
macro that can find the cells that have values and put the
values into the
first column of another worksheet?