Problema con Botones

Tengo creado una barra de botones que contiene un botón que ejecuta una
macro que copia varias celdas del archivo abierto en la primera fila vacía
de otro libro a modo de listado.

El caso es que para elaborar los archivos (facturas) utilizo normalmente la
última del mismo cliente la cual modifico y guardo con el nº nuevo, después
pulso el botón y se ejecuta la macro abriendo el listado y pegando en la
última fila las celdas que contienen los datos.

El problema es que si seguido de este documento lo cierro y abro la última
factura de otro cliente para elaborar otra factura, al pulsar el botón
vuelve a introducir en la lista la factura que he creado anteriormente,
abriendo el archivo que hice anteriormente y lo que quiero es que me incluya
el que acabo de elaborar para lo que tengo que volver a asignar el macro en
las propiedades del botón.

Adjunto macro para que lo veáis

Sub AbrirListaDeFacturas()
Dim Nombres As Variant, Col As Integer
Nombres = Array("n_fac", "fecha", "cliente", "obra", "tot_cert",
"retención", "subtotal", "iva", "tot_fac")
Workbooks.Open FileName:= _
"C:\"ruta del archivo"\Relación de Facturas 2003.xls"
With Range("b65536").End(xlUp)
For Col = 0 To UBound(Nombres)
.Offset(1, Col) = ThisWorkbook.Worksheets(1).Range(Nombres(Col))
Next
End With
ActiveWorkbook.Save
End Sub