VB Code to sort the list

Hello:

Please refer to attached file.
I need VB Code to do the following.
I will be entering names in column B from cell B2 down.
Once i enter, i need the list to be alphabetticaly sorted.
Let me know if you have any questions.
Thanks.

Riz

Hello shg:

No, because the list will be Dynanic and number of rows would not be fixed.
Please let me know if you have any questions.
Thanks.

Riz

Hi shg:

Thanks a lot, i beleive i got it thru recording macro as code below.

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("B1").Select
    Selection.AutoFilter
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("B1:B9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Thanks a lot
Riz