Un saludo a todos los del foro, solicito su aproyo ya que estoy aprendiendo VBA y no logro solucionar lo siguiente:

Estoy adaptando un código que bajé de internet para copiar archivos contenidos en varias subcarpetas y que se copien todos a una sola carpeta, es decir; existe una carpeta que tiene varias subcarpetas y cada una de ellas contiene archivos, lo que hace esta macro es copiar todos esos archivos a una sola carpeta.

La macro funciona si se selecciona la carpeta de origen con el buscador y si se pone "a mano" la carpeta destino.

Lo que quisiera hacer es seleccionar también con el buscador la carpeta destino, pero si lo hago así, me arroja el error "70" en tiempo de ejecución permiso denegado.

Adicionalmente quisiera que me pueda al final arrojar un mensaje de la cantidad total de acrchivos copiados.

Subo el archivo que contiene la macro para mejor comprensión.

De antemano muchas gracias.