Macro that autosorts

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
'Target.EntireColumn.Sort Key1:=Target, Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A5:A30").Sort Key1:=Target, Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub

I have this code, that is doing roughly what I need it to which is in a5:a30 it auto sorts the column of "last name" alphabetically. I need to make it so that when it autosorts the last name it produces a blank row so I can continue to add new new information on column b-e which include first name and other such information.

I guess another way to look at it would be autosorting rows up to 30 alphabetically by column A starting at row 5

Thank you everyone for your time.