Inserindo data automaticamente

como fazer para quando eu digitar algo na coluna (B), na coluna (A) entrar a data do dia atual automaticamente?

Bona noite.
Coloca uma macro para worksheet > change

cells(target.row,target.column-1).value = Date

1 Curtida