Текущая дата кода VBA плюс двухзначный серийный номер

Я хочу создать код vba, который при двойном щелчке по ячейке (A2: A9999) автоматически заполнит текущую дату и двухзначный серийный номер (от 01 до 99) (20171031-01).

Пример

Дважды щелкните ячейку A2
-20171031-01

Дважды щелкните ячейку A3
-20171031-02

Дважды щелкните ячейку A4 (через 2 дня)
-20171102-01

Я новичок в этом, и я не могу заставить его работать