Sorting Question - Sort until last cell in range with data (but keep the last cell with data out of the sorting progress) any idea ??

[Beginner1200]

I want to sort the range "B5" order Ascending. But it has to leave the >>100.00; Hull<< out of the sorting progress.
Sorting the whole row with data but it has to leave the last cell in ascending order out of the sorting...
Hope my post gives any sense or meaning and hope anyone can give me hint to get it right

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Range("B5", Range("B5").End(xlUp)).Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlYes
End Sub

 

[Fluff]

How about

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Range("B4", Range("B" & Rows.count).End(xlUp).Offset(-1)).Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlYes
End Sub

 

[Beginner1200]

How about

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Range("B4", Range("B" & Rows.count).End(xlUp).Offset(-1)).Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlYes
End Sub

Hi Fluff

Yes it works! Many thanks I first saw your posting today!
An additional question... what is I only want to sort the first 6 numbers ex "300.00" and exclude the all the rest example "300.00; Protection" how do I put this into the coding? Hope you have an idea

 

[Fluff]

Maybe

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Range("B4:B9").Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlYes
End Sub

 

[Beginner1200]

I have been working a little with this code here!!
But I cannot get it to work!? I am missing some here????

My piont is it has to sort ex. "185.00; Test" or "325.00; Next" I want in the code only to use "ex 185.00 to sort and to ignore Test... Can this be done with the code issued below??
or do I have to make an different approach?

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Left(Range("B4"), 6, Left(Range("B"), 6 & Rows.Count).End(xlUp).Offset(-1)).Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlYes
End Sub

 

[Fluff]

As this is a completely different question, it needs a new thread.