Here's a quicky simple way just put this together not entirely sure what
your trying to do as zero is counted as anything but the code below will
put the numbers which arent 0 in the column next to it just by simple
offset. I put this in the worksheet code as Activate just so i could
get it to work by clicking another sheet and clicking back but you can
create a keyboard shortcut or Auto_open or whatever you like!

HTH

P.S the last bit of code at the bottom (Cleanup) stick it a module on
its own!
Simon.

Private Sub Worksheet_Activate()
Dim rng As Range
Set rng = Range("A1:A10")
For Each mycell In rng
If mycell = 0 Then
ElseIf mycell < 0 Then
mycell.Offset(0, 1) = mycell.Value
End If
Next
Call Cleanup
End Sub

Sub Cleanup()
Dim rng As Range
Set rng = Range("a1:a10")
For Each mycell In rng
If mycell.Offset(0, 1) = "" Then
mycell.Offset(0, 1).Delete
End If
Next
End Sub


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=474232