How do I make input box that will take an array of stock symbols and
put them in 1 column, each in it's own cell?

If you mean one element at a time:

Private Sub Macro1()
Dim strIn As String
Do
strIn = InputBox("Enter data.")
iRow = iRow + 1
Sheets("Sheet1").Cells(iRow, 1) = strIn
Loop Until strIn = ""
End Sub

HTH,
Merjet