Te mando un código con el que podrás escribir en una celda específica y así sobre escribir la celda sin perder los datos de las otras celdas:
Workbooks.Open "path y nombre de archivo en excel"
Workbooks("Nombre de archivo en excel.xls").Activate
Cells(2, 1).Value = Dato que quieres poner
Workbooks.Close
ojalá te sirva
