What I don't understand is if you are using columns A to DO then how
can you use column B to house the negative values from column A? Give
a bit more detail about how your data is laid out.

Pete

On Sep 26, 11:58*pm, Sojo wrote:
I am writing a macro to automate several processes. I have the following
table where column A has positive and negative values and column B is blank.
I need a formula that will find all the negative values in column A and move
them to column B. In essence, it needs to say if number in column A < 0,
then cut it and paste it into column B.

1. Original * * * * * Negative
2. 3.72545
3. 3.4584
4. 3.1071
5. -0.460399
6. -0.803222
7. -1.12457

I have several excel docs each with only 1 worksheet. *My columns run from A
to DO (this will be constant) and rows go to 2280 (this will not be
constant). *Because of this I would prefer a macro function instead of a
formula.

IanC's gave me the following macro.

For r = 2 To 100
If Cells(r, 1).Value < 0 Then
Cells(r, 1).Copy
Cells(r, 2).PasteSpecial
Cells(r, 1).Value = ""
End If
Next

I copied and pasted the macro as is into a VB module, but it didn't work. I
don't know much about code, so can't figure out what I did wrong.