Problem mit Checkbox-Code

Private Sub CheckBox1_Click()
Application.ScreenUpdating = False
Hallo Excelprofis, ich habe ein kleines Problem mit dem Code einer Checkbox.
Wie bekomme ich es hin das in .Range("B2") der Text bzw. Value rechtsbündig formatiert wird?
If CheckBox1.Value = True Then
With Range("RSumme")
.Range("B2").Value = "Rabatt:"
'.Selection.HorizontalAlignment = xlRight
.Range("C2").Value = "5%"
.Range("E2").FormulaR1C1 = "=R[-1]C*RC[-2]"
.Range("C2").Select
End With
Else
With Range("RSumme")
.Range("B2:E2").ClearContents
End With
End If
Application.ScreenUpdating = True
End Sub