A macro é muito simples, algo como:
Sub Makro1()
ActiveCell.FormulaR1C1 = "x"
End Sub
O único problema é, como Prasanna mencionado, o atalho para isso.
Você não pode usar a TAB , apenas a combinação de teclas ctrl+<key>
é permitida.