Optimized my VBA and error handler is longer returning output

Question

The error handler stopped producing after Optimizing the VBA code for the faster performer. Please pardon my use of words I am new to VBA and I have also the shorten the length