try this. You may want row-1. Why are you selecting?

LastRowInB = .Cells(.Rows.Count, "B").End(xlUp).Row
.Range("A1:C" & lastrowinb).Select


--
Don Guillett
SalesAid Software

"Stan" wrote in message
...
Can anyone tell me what I need to add to the code below to move the range
up
1 row?

LastRowInB = .Cells(.Rows.Count, "B").End(xlUp).Row
.Range("A1:C" & FoundCell.Row).Select


Many thanks!