Maybe this:

Range("A1:C" & FoundCell.Row.Offset(-1, 0)).Select

Regards,
Paul

"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!