Necesito crear una Macro para mover archivos en PDF en carpetas separadas y que cada carpeta contenga Máximo 200 archivos?

Tengo una serie de carpetas que cada una contiene una serie de archivos en PDF, para cargarlos a un programa, necesito una macro que recorra la cantidad determinada de carpetas, me copie los archivos y me cree otras carpetas y que cada una contenga máximo 200 archivos.