Hola equipo Deztaca, solamente una pequeña apreciación, en el código del módulo,  en esta sentencia:

With Nuevo.Sheets(1)
    .Range("A1").PasteSpecial Paste:=xlPasteValues

A mi excel me acepta xlPasteValues, es decir con s final en Values, no obstante en el video tutorial acepta el Value sin la s final ya que la identifica como una variable desconocida.