Macro copiar en otro libro de excel cerrado

Hola experto,
Tengo el siguiente macro:
Sub VENTAS_5Rectángulo_Haga_clic_en()
'
' VENTAS_5Rectángulo_Haga_clic_en Macro
'
'
If Range("a16") = "" Then Range("A1") = " "
Range("A18:aa23").Copy
For a = 1 To 9000
Sheets("Hoja2").Select
If Range("a2").Offset((a - 1) * 1, 0) = "" Then
Range("a2").Offset((a - 1) * 1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Exit For
End If
Next a
 Application.CutCopyMode = False
Sheets("ventas-A").Select
Range("L6").Select
 Selection.Copy
Range("p1").Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A36:aa52").Select
 Selection.Copy
Range("A8").Select
 ActiveSheet.Paste
 Application.CutCopyMode = False
Range("H8").Select
End Sub
Quiero que en vez de hacer la rutina en: Sheets("Hoja2").Select  <-----(linea 4)
Lo haga en un archivo de excel aparte, que esta cerrado. Pues con esa rutina estoy haciendo una base de datos y ya es muy grande y el archivo esta pesado, así que quiero que grabe en otro archivo en vez de "hoja2" del archivo de origen de los datos.
Gracias de antemano