Como se escribe esta orden o acción

En la hoja activa en excel tengo planillas que llegan hasta la fila 3010, cada planilla esta separada por un rango de 70 filas, hasta la columna H, es decir de A1 hasta H70 es una planilla, de la A71 hasta H140 es otra planilla, de A141 a H210 es otra, etc, y así sucesivamente, el problema es que tengo una macro que me separa la hoja por planilla y me la convierte a pdf inclusive con el nombre que aparece en una celda, pero me separa solo una planilla, o sea, si tengo 2 planillas con el mismo nombre o código, me guarda solo una de las dos y a mi me gustaría que me guardara las dos en un pdf (por que las dos tienen un código en común) en un pdf, repito, con dos páginas, obvio por que son dos planillas, ojala comunidad me ayuden, ya que llevo bastante tiempo tratando de dar con la solución, la macro que adjunto esta 99% lista, pero me falta ese detalle.

Gracias.

Sub PDFS()
Dim ruta As String, nombre As String 'Definición tipos de variables
ruta = ThisWorkbook.Path & "\" 'Obtiene la ruta del archivo

Application.ScreenUpdating = False 'Evita centelleo de pantalla

Do While [G9] <> "" 'Hacerlo mientras celda G9 sea distinto de blanco
nombre = [G9].Value 'Obtiene el nombre de celda G9
[A1:H70].ExportAsFixedFormat Type:=0, Filename:= _
ruta & nombre, IncludeDocProperties:=1, OpenAfterPublish:=0 'El rango A9:H70 lo guarda como PDF
[A1:H70].EntireRow.Delete 'Elimina el rango A9:H78.
Loop 'Repite el bucle
Application.ScreenUpdating = True
End Sub