我收到“运行时错误'424：对象需要”错误

I have made a macros having multiple subs. In one of the subs I am getting the give error. Before this sub, the code is running fine but in this sub as the active sheet switches to Sheet 2, I am getting the error in the specified line. I have made a macros having multiple subs. In o