Please remember to follow the forum rules below. (check out rule 5)

See if this helps

With Sheets("Sheet7")
  .Range("A2").CurrentRegion.Sort Key1:=.Range("A2"), _
            Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, _
            Orientation:=xlTopToBottom
End With
VBA Noob