Vba unificar procedimientos largos en uno para crear un informe desde excel a word

[xadona]

La cuestion es que estoy realizando una macro con excel que realiza un informe en un documento word, la macro abre el word y empieza a pegar las celdas que designo a traves de la macro al word. LLega un momento que en la macro salta un error que dice:

Error de compilación: procedimiento demasiado largo.

resulta que hay demasiadas lineas, por lo que he procedido a separar el codigo en dos procedimientos haciendo lo siguiente

Procedimiento 1:

Sub Botón4_AlHacerClic()
'
' Botón4_AlHacerClic Macro
' Macro grabada el 15/05/2009 por JAVIER
'
Dim wordApp As Object
Dim wordDoc As Object
Set wordApp = CreateObject("Word.Application")
Set wordDoc = wordApp.Documents.Add

'TITULO
Worksheets("Comprobaciones Realizar").Range("B3:B3").Select
Application.Selection.Copy
wordApp.Visible = True
wordApp.Selection.PasteAndFormat (wdChartvalue)

'LINEA BLANCO
Worksheets("Comprobaciones Realizar").Range("A184:A184").Select
Application.Selection.Copy
wordApp.Visible = True
wordApp.Selection.PasteAndFormat (wdChartvalue)
....
Al final del procedimiento pongo

Call Botón5_AlHacerClic (creo que hace una llamada al procedimiento Botón5_AlHacerClic, que es el otro procedimiento)

End Sub


Procedimiento 2:

Sub Botón5_AlHacerClic()

'TITULO 7. PRESTACION DE SERVICIOS SIN ACCESO A DATOS

Dim wordApp As Object
Dim wordDoc As Object
Set wordApp = CreateObject("Word.Application")
Set wordDoc = wordApp.Documents.Add

Worksheets("Comprobaciones Realizar").Range("B32:B32").Select
Application.Selection.Copy
wordApp.Visible = True
wordApp.Selection.PasteAndFormat (wdChartvalue)

'LINEA BLANCO
Worksheets("Comprobaciones Realizar").Range("A184:A184").Select
Application.Selection.Copy
wordApp.Visible = True
wordApp.Selection.PasteAndFormat (wdChartvalue)

Al realizar esta llamada puedo trabajar con procedimientos largos, pero lo que pasa es que me cuando empieza con el segundo procedimiento me abre un nuevo documento word y lo que yo quisiera en que siguiere con el documento inicial, creo que el problema esta en el primer parrafo de codigo del procedimiento 2

¿Como habria que ponerlo para que todo se generara dentro del mismo documento word?

Muchas gracias