Option Explicit
Private Sub CommandButton1_Click()
Dim mynumber1 As Double
mynumber1 = mynumber1textbox.Text
Dim myrange As Range
Set myrange = ActiveCell 'currently does not support user input for a particular cell
myrange = "Table of " & mynumber1
Dim mymoverate As Single
mymoverate...