Or
Private Sub Add306_Click()
    With Range("E9")
        .Value = .Value + 8
    End With
End Sub