Adding Input Box to Macro

[mhayduk]

So I have recorded a Macro that formats a column that does 3 things (removes all "-" from cells, multiplies every cell by 1, and also a text-to-column function). These are all to help with formatting to create a Vlookup. I will do this on many different spreadsheets but not necessarily the same column. So form the code below, I need to get rid of B9 allow the user to input the starting cell they would like to begin with. For now the xlDown should work just fine. Also, just as a heads up, the L1 is also fine to remain where it is. I am assuming this isn't too hard, I just haven't found the correct way to do so. Range("B9").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("B9"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True
Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
Range("L1").Select
ActiveCell.FormulaR1C1 = "1"
Range("L1").Select
Selection.NumberFormat = "General"
Selection.Copy
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B9").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("B29").Select