Mira a ver si es
esto lo que buscas (hoy estaba generoso).
Si abres el fichero online, puede que no te funcione correctamente, por eso es mejor descárgalo en tu pc, para ejecutarlo posteriormente desde allí.
Salu2
PD: Como verás, el código está debidamente comentado. Ya sabes: Alt+F11 para ver el código VBA. EDITADO: Puedes borrar lo que hay en la fila 49 y ss., pues era una copia de los datos.