Quote Originally Posted by c7015
well If there is no value in t20 ra it means it is not being compaired and can just move onto the next statement

how come it does not end the program when it is checkcking the first page calculations ..
Because on the first sheet you're searching ranges A21:A130, which includes some empty cells, but on the Summary sheet, your code only searched A28:A127, which doesn't include empty cells.
Quote Originally Posted by c7015
I would like it to do exactly what it does on the first page but on the sheet summary , is it just where I have place the end statement
No.

You need to change the likes of[vba]If findit Is Nothing Then
End
Else
findit.Select
ActiveCell.Offset(1, 5).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
End If[/vba]to:[vba]If not findit Is Nothing Then Range(findit.Offset(1, 5), findit.Offset(1, 5).End(xlDown)).ClearContents[/vba]Yes, one line.