Uma maneira de conseguir isso é com um Worksheet_SelectionChange()
Sub. Coloque este código no módulo de folha em que você deseja ter essa funcionalidade.
Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("D5:X64")) Is Nothing Then Exit Sub
Target.Formula = "= Round(($A$1 + " & Chr(34) & "0:02" & Chr(34) & ") * 96, 0) / 96"
End Sub
A instrução IF
verifica se o clique está no intervalo desejado. Você pode clicar em várias células e todas elas serão preenchidas