Sorting full table by name

[thorb]

hi,
i´m new to excel. i´ve created a table B16 to H25
B=name C=adr D=city E=zip ... etc.
when i insert a new name, i want to to automaticaly sort
the table by the names.
the following code only sorts B, the columns from C to H
are untouched. what is wrong ?

Private Sub worksheet_Change(ByVal Target As Range)
On Error GoTo fehler
Application.EnableEvents = False
    Range("B16:H25").Select
    ActiveWorkbook.Worksheets("Endstand").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Endstand").Sort.SortFields.Add Key:=Range("B16:B25"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Endstand").Sort
        .SetRange Range("B15:H25")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
fehler:
Application.EnableEvents = True
End Sub

thx and regards from germany
thorsten

[marreco]

Read the rules
place the code between the tags

[marreco]

Try..

Private Sub Worksheet_Change(ByVal Target As Range)

Dim lrow As Long
lrow = Range("B" & Rows.Count).End(xlUp).Row
If Range("H" & lrow).Value <> "" Then
    [B17:H25].Sort Key1:=[B16], Order1:=xlAscending
End If
End Sub

[thorb]

hi,
thx, but it doesn´t work. i´ve inserted the code in the editor
but it did nothing
some rows or cells can be empty

[thorb]

nobody here who could help ?

edit: problem solved :-)
the following code does it

Private Sub worksheet_Change(ByVal Target As Range)
On Error GoTo fehler
Application.EnableEvents = False
With Worksheet
If Target <> "" And Target.Row > 15 And Target.Row < 26 And Target.Column > 1 And Target.Column < 33 Then
x1 = Selection.Row
y1 = Selection.Column
 Range("B16:AF25").Sort Key1:=Range("B16"), Order1:=xlAscending, _
	Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
	Orientation:=xlTopToBottom
Cells(x1, y1).Select
End If
End With
fehler:
Application.EnableEvents = True
End Sub