VBA: Sort Range after New Data

[bamaisgreat]

Is it possible to sort the range a to z after the code below.

Private Sub CommandButton1_Click()
Dim newEntry As Variant, rws As Long, adr As String
newEntry = UserForm4.TextBox1.Value
rws = Range("Grades").Rows.Count
Range("Grades").Cells(1, 1).Offset(rws, _
    0).Value = newEntry


Unload Me
End Sub

 

[Akuini]

Maybe this:

[FONT=Lucida Console][COLOR=Royalblue]Dim[/COLOR] newEntry [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Variant[/COLOR], rws [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Long[/COLOR], adr [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]String[/COLOR]
newEntry = UserForm4.TextBox1.Value

[COLOR=Royalblue]With[/COLOR] Range([COLOR=Darkcyan]"Grades"[/COLOR])
    rws = .Rows.count
    .Cells([COLOR=Brown]1[/COLOR], [COLOR=Brown]1[/COLOR]).Offset(rws, [COLOR=Brown]0[/COLOR]).Value = newEntry
    .Resize(rws + [COLOR=Brown]1[/COLOR]).Sort Key1:=.Cells([COLOR=Brown]1[/COLOR]), Order1:=xlAscending, Header:=xlNo
[COLOR=Royalblue]End[/COLOR] [COLOR=Royalblue]With[/COLOR]
Unload [COLOR=Royalblue]Me[/COLOR][/FONT]