Help with Code

[AJacLo]

After I run this macro again, I get the same values. Can someone tell me how to reset the specified range "Table," so that I can add another range and calculate new values?

Sub MacroTry1()
'
' MacroTry1 Macro
Dim Specifiedrange As Range
Set Specifiedrange = Application.InputBox("Specify the range:", Type:=8)
Specifiedrange.Name = "Table"
ActiveCell.FormulaR1C1 = "=COUNTIF(Table,"">0"")"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=COUNT(Table)"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
Range("D3").Select
End Sub