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

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,

If I remove the following code then it works fine. So what should I do to solve the problem.

Please Login or Register  to view this content.

Thanking you.

Hi,

Perhaps use this

Please Login or Register  to view this content.

Hi xlnitwit,

Thank you. Ok, it solves the problem of deletion but the concatenate code is not working properly. If I delete the value in column 'H' then it deletes which should not be. Doesn't matter, I moved the auto ID code at the end it works fine.

Thank you and have a nice time.