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.

Hello Brandmire,

Welcome to the Forum!

It would be best if you post a copy of your workbook.

Please change or redact any information that is confidential or sensitive before posting your workbook.

How To Post Your Workbook

1. At the bottom right of the Reply window, Click the button Go Advanced
2. At the top of the Your Message Window, in the first row of icons, Click the Paperclip icon.
3. Click the Add Files button at the top right in the dialog box. This displays the File Manager dialog.
4. Click the Select Files button at the bottom middle of the dialog.
5. In the new window Find the file you want to upload, select it, and Click Open.
6. You will now be back in the File Manager dialog. Click the bottom Middle button Upload File.
7. Wait until the file has completely uploaded before you exit the File Manager dialog.

Hello Brandmire,

As long as the sample workbook is laid out the same as the original, that will suffice.