Arreglar código y optimizarlo VBA excel

Hola amigos,

Tengo un código de macro en excel que me está dando algún que otro problema, me gustaría que me echarais una mano, ya que el problema creo que es para optimizarlo, si estáis dispuestos ayudarme por favor contactar conmigo.

Gracias