Sort dynamic range alphabetically - cant get it working

Hi Taktiker,
maybe so

Sub AZ()
Dim Search_Cell As Range
Set Search_Cell = Sheets("Sheet1").Cells.Find("Supprechner")
If Search_Cell Is Nothing Then Exit Sub
With Search_Cell.Offset(3, 0)
    .Sort Key1:=.Cells(1, 2), Order1:=xlAscending, Header:=xlYes
End With
End Sub

This works in the sample book, but it misses a point I didnt mention. It should only sort the text entries until the first empty row. Because in the column is other data that shall not be sorted. This is the reason why I included the LastRow Variable.

then maybe this

Sub AZ()
Dim Search_Cell As Range
Set Search_Cell = Sheets("Sheet1").Cells.Find("Supprechner")
If Search_Cell Is Nothing Then Exit Sub
With Search_Cell.Offset(3, 0)
    .Cells(1).Select
    With Range(.Cells(1), Cells(Rows.Count, Search_Cell.Column).End(xlUp)).Resize(, 2)
        .Sort Key1:=.Cells(1, 2), Order1:=xlAscending, Header:=xlYes
    End With
End With
End Sub

I just noticed I that the macro has to sort 3 columns without changing the other columns, like e.g. the numbers on the left. I added some other cells to the sample book and marked the area to sort with a red border so you can visualize it more easily. Sorry for not telling you everything from the start.

try again

Sub AZ()
Dim Search_Cell As Range
Set Search_Cell = Sheets("Sheet1").Cells.Find("Supprechner")
If Search_Cell Is Nothing Then Exit Sub
With Search_Cell(4, 2)
    With Range(.Cells(1), Cells(Rows.Count, Search_Cell.Column + 1).End(xlUp)).Resize(, 3)
'            .Select
        .Sort Key1:=.Cells(1), Order1:=xlAscending
    End With
End With
End Sub

Thanks a lot! This is exactly what I need.