Dim rng as Range
Range("S5:T2000").Value = Range("Q5:R2000").Value
On Error Resume Next
set rng = Range("S5:S2000").SpecialCells(xlConstants,xlTextV alues)
On Error goto 0
if not rng is nothing then
rng.Delete Shift:=xlShiftUp
End if

Would work I would think.

--
Regards,
Tom Ogilvy


wrote in message
ups.com...
Thx Tom

The source column contains formulas. The formulas result in either a
number or a blank cell. Here is an example of the source cell formula:

=IF(ISNUMBER(M6),IF(OR(AND(M60,M5<0),AND(M6<0,M5 0)),E5,""),"")

I'm giving your response a try. If you think there is a more efficient
method please feel free.