Code:
--------------------

If ActiveCell.Offset(0, 0) < "" And ActiveCell.Offset(0, 1) < "" Then
'copy data and set flag
ActiveCell.Resize(, 2).Copy
ActiveCell.Resize(1, 2).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End If

--------------------


Got this now, but its not pasting the row values into the row below
it....any ideas?

Cheers guys.


--
gti_jobert
------------------------------------------------------------------------
gti_jobert's Profile: http://www.excelforum.com/member.php...o&userid=30634
View this thread: http://www.excelforum.com/showthread...hreadid=514841