Este é o código que você está procurando: (clique com o botão direito na guia / View Code).
O código coloca o valor now () na célula Rxxx
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lijn
Dim Cel
Lijn = Target.Row
Cel = "R" & Trim(Str(Lijn))
Range(Cel).Value = Now()
End Sub