Se eu entendi o que você está pedindo, consegui que ele fizesse referência à célula ("R2" como você fez. Alterar o texto na caixa também altera o texto em R2. Então, eu adicionei este código ao Visual Basic, e ele está mudando ambos.
Private Sub ComboBox1_Change()
Worksheets("Sheet1").Range("S2").Value = Me.ComboBox1.Value
End Sub