Tengo esta macro, necesito que me la copie rectificando el valor de la fecha

Buenos días
En esta macro necesitaría, quitar, =HOY(), y me pegase solo el valor, esta en la celda "C4":

Sub PEDIDOS_FALCATA()
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
' Guardar archivo en G
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Dim Ruta As String
Ruta = "G:\Factura\7Pedidos.xls"
Worksheets("P.FALCATA").Select
Selection.Copy 'si no, determinar el rango a copiar
Workbooks.Open Ruta
Worksheets("FALCATA").Select
Range("A5").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
ActiveSheet.Paste 'Pega valores
Application.CutCopyMode = False
Workbooks("7Pedidos.xls").Close Savechanges:=True
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
' Guardar archivo en J
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Ruta = "J:\Factura\7Pedidos.xls"
Worksheets("P.FALCATA").Select
Selection.Copy
Workbooks.Open Ruta
Worksheets("FALCATA").Select
Range("A5").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
ActiveSheet.Paste 'Pega valores
Application.CutCopyMode = False
Workbooks("7Pedidos").Close Savechanges:=True
ActiveSheet.Unprotect Password:="1"
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
' Guardar archivo en J como documento WORD
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
DatoFechador = Format(Now(), "dd-mm-yyyy") + " " + Format(Now, "H M Am/Pm") 'establecemos una variable para la fecha
Ruta = ThisWorkbook.Path 'el archivo Word se guarda en la misma ruta que el archivo Excel
Selection.Copy 'si no, determinar el rango a copiar
Set Wordapn = CreateObject("Word.Application") 'crear nueva aplicación Word
n_archivo = "mi_doc_word" 'nombre del archivo word, puede hacer referencia a una celda u otro dato
With Wordapn
.Visible = True
.Activate
End With
Wordapn.Documents.Add 'crear nuevo documento Word
Wordapn.ActiveDocument.SaveAs "J:\FALCATA " & DatoFechador & " .doc" 'guardar como
End Sub

Y a su vez que megue las fotos y todo lo demás como esta.
Un saludo