Private Sub Add306_Click()
Range("E9").Select
    ActiveCell.FormulaR1C1 = Range("E9") + "8"
End Sub