Per Tom Ogilvy:

if I want multilple cells and I am using code it can use

With Worksheets("Sheet1")
set rng = .Range(.Cells(2,1),.Cells(2,1).End(xldown))
End with

res = Application.Match(Trim(ActiveCell & ActiveCell.Offset(0,1)), rng,0)
if not iserror(res) then
set rng1 = rng(res)
rng1.Offset(1,0).Resize(1,30).copy ActiveCell.offset(0,3)
End if

this eliminates all beating down.

That's the way I'm going to do it then.

Thanks again.
--
PeteCresswell