Why I have to run 'RefreshScreen' macro each time after deleting anything?

[mso3]

Dear Friends,
In the attached workbook if I delete anything from row 5 then I have to run the ‘RefreshScreen’ macro each time. What’s wrong in the sheet code ‘Sheet1’?
After running the 'RefreshScreen' macro it's working fine. I think there is a problem in column 'H' concatenate' code because if I remove it then it works fine. But the 'concatenate' code is working fine in other workbooks; so I think there may be problem in other code which crashes it.

Any help will be highly appreciated.

Thanking you,