select entire column based on cell value

Oh this is very simple. All you need to do is as follows:

Dim UserReply As String

Sub test()
    UserReply = InputBox("Please enter column alphabet", "Column Alphabet")

    Columns(UserReply & ":" & UserReply).Select
    Selection.Copy

End Sub