Give this a try. It is a little more compact than your original post...

dim rg as range

For Each rg In Range(Range("a10:"), cells(Rows.count, "A").end(xlUp))
If rg 0 Then rg.Offset(0, 1).Value = rg.value
Next rg
--
HTH...

Jim Thomlinson


"John" wrote:

any help is appreciated... I am not getting it to select or evaluate each rg

Range("b65536").End(xlUp).Select
rnglst = ActiveCell.Row

For Each rg In Range("a10:" & Range("a" & rnglst))
rg.Select
If rg 0 Then
rg.Copy
rg.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End If
Next