Al grabar la Factura no me copia el logo de la empresa

Buenos días, estoy usando el siguiente macro:
Sub Guardar_Factura()
Dim Ruta As String
Ruta = "G:\Factura\AdraPaco\AdraPaco.xls"
Worksheets("AdraPaco").Select
Range("B1:G36").Copy
Workbooks.Open Ruta
Worksheets("AdraPaco").Select
Range("A1").End(xlDown).Select
Selection.Offset(0, 1).Select
Selection.End(xlUp).Select
Selection.Offset(2, 0).Select
'Dirigirse a la ultima celda que contiene valores
'Pega valores
Selection.PasteSpecial xlPasteFormats
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks("AdraPaco.xls").Close savechanges:=True
End Sub
Todo perfecto, pero al grabar la Factura no me copia el logo de la empresa, y no se lo que estoy haciendo mal.
Gracias de antemano a posibles respuestas.