Uso de Applescript para pegar la fecha actual en un rango de celdas de Excel

Creo que el código siguiente habla por sí mismo. El comando do shell script no debería usarse dentro de otro bloque tell de la aplicación. Aún así, prefiero una solución de AppleScript de vainilla como la de abajo, que está bien para ser utilizado en cualquier contexto en el script.

tell (current date) to set {_day, _month, _year} to {day, it's month, year}
set _day to text -2 thru -1 of ("00" & _day) -- add leading zeros if needed
set _month to text -2 thru -1 of ("00" & (_month as integer)) -- add leading zeros if needed
set _date to _day & "/" & _month & "/" & _year

tell application "Microsoft Excel"
    tell workbook 1
        tell worksheet 1
            set value of range "$A1:A10" to _date
        end tell
    end tell
end tell