Grabar en una celda el nombre de fichero PDF generado desde otra hoja.

Saludos, tengo 2 hojas "Hoja1" y "Hoja2" en Hoja1 tengo un registro de pedidos con varias lineas por cada pedido, en la "Hoja2) tengo un formulario que dando el número del pedido genera un formulario con los datos del proveedor y las lineas de pedido, en este formulario tengo una macro que me genera un PDF con el número de pedido, para imprimirlo o enviarlo por mail.

Lo que quiero es que al ejecutar la macro de generar el PDF me grabe en la "Hoja1" en la fila correspondiente a cada linea de pedido en la columna Z la fecha en que se genera el PDF para controlar que ese pedido ya se ha realizado.

A continuación indico la macro que genera el PDF.

Sub pdf()
Range("A1:H29").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$29"
Dim rutaarchivo As String
rutaarchivo = [m1] & [g2] & [h2]
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=rutaarchivo, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Range("A2:A2").Select
End Sub

Saludos.