Macro que me permita copiar.

Estoy realizado una tarea que necesitaría automatizar y es la siguiente.

Tengo una planilla donde debo separar las bocas de ventas de clientes que siempre están en la columna B, por ejemplo el primer dato se encuentra en B2, y el siguiente puede estar es en B170 o B180, y así sucesivamente teniendo que recorrer casi 10000 filas para encontrar las demás bocas de ventas. Lo que me ayuda es que los títulos para la primer Boca de Ventas van de A1.. R1, en la fila 2 empiezan los datos que van desde A1,, M1, para la segunda boca de Ventas podrían empezar los títulos A171.. R171 y los datos desde A172.. M172.

Lo que primero que hago es agregar una columna para ir copiando A1 la primer boca, En la macro que grabe y que les detallo mas abajo podrán ver el movimiento que hago para poder realizar la copia los datos de la Columna C1 en A1, lo que yo necesitaría saber es como hago para ir hasta la segunda Boca de ventas para volver a copiar en la columna A.-

Desde ya muchas gracias. Saludos

Sub Macro2()
Range("C1").Select
Selection.Copy
Range("A1").Select
ActiveSheet.Paste
Selection.End(xlToRight).Select
Selection.End(xlDown).Select
Selection.End(xlToLeft).Select
Range("C171").Select
Application.CutCopyMode = False
Selection.Copy
Range("A171").Select
ActiveSheet.Paste
Selection.End(xlToRight).Select
Selection.End(xlDown).Select
Selection.End(xlToLeft).Select
Range("C329").Select
Application.CutCopyMode = False
Selection.Copy
Range("A329").Select
ActiveSheet.Paste

End Sub