Need help with autosort problem

[Av8tordude]

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Range("A3").Sort Key1:=ActiveSheet.Columns("A"), Header:=xlGuess
End Sub


I'm trying to use this code to autosort my table alphabetically. The first two rows (1 & 2) I don't what it to be autosorted. Only row 3 and beyond are to be autosorted. How can I accomplish this task.

Every time I enter a new name, in column A, row 1 & 2 should not be included.

Thank you much.

 

[jskrepak]

Depending on the continuity of the table, this might just work for you:


Private Sub Worksheet_Change(ByVal Target As Range)
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
End Sub