Not tested just written here but should do what you want it to do!

Sub Copy_B_To_C()
Dim Rng As Range, MyCell as range
Set rng= Range("A1:A" & range("A" & rows.count).end(xlup).row)
for each mycell in rng
if mycell.value ="SBY" then
mycell.offset(0,3)=mycell.offset(0,2)
end if
next mycell
end sub


--
Simon Lloyd

Regards,
Simon Lloyd
'www.thecodecage.com' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=24509