rij selecteerd als de tekst in een cel begint met een letter

[Mcstupid]

Hoi hoi!

Voor een raaplijst ben ik op zoek naar een code die een bereik maakt als de artikelcode begint met een letter zodat ik deze kan sorteren.
Hoe kan ik ervoor zorgen dat alle regels geselecteerd worden als deze begint met een letter? (Bijvoorbeeld de letter L).
De code die ik zoek wordt een toevoeging op de in elkaar gepuzzelde code hieronder.

Sub Main()
'NOG EEN CODE TOEVOEGEN OM DE AANTALLEN VAN DE L TE SORTEREN:
'WANNEER EEN ER EEN VOLLE PALLET GELEVERD MOET WORDEN, KAN DE REGEL OVER WORDEN GESLAGEN.
Application.DisplayAlerts = False
    
    Dim i As Long
    Dim j As Long

    Dim sameRows As Boolean
    sameRows = True




'Nu eerst voor de LV
For i = 9 To 89
        If Cells(i, 5) = "L" Then
                If Cells(i, 4) = 140 Then
                    Cells(i, 5).Value = 140
                    GoTo hierheen
                Else
            For j = 5 To 5
                    If StrComp(Cells(i, j), Cells(i + 1, j), vbTextCompare) Then
                    sameRows = False
                    End If
            Next j

                    If sameRows Then
                    With Range(Cells(i, 6), Cells(i + 1, 6))
                    .Merge
                    .HorizontalAlignment = xlRight
                    .VerticalAlignment = xlCenter
                    .Value = 1
                    End With
                    End If

            sameRows = True
                End If
        End If
hierheen:
Next i

'En nu voor de OS
For i = 9 To 89
        If Cells(i, 5) = "O" Then
                    If Cells(i, 4) >= 128 Then
                    Cells(i, 5).Value = 128
                    GoTo daarheen
                Else
            For j = 5 To 5
                    If StrComp(Cells(i, j), Cells(i + 1, j), vbTextCompare) Then
                    sameRows = False
                    End If
            Next j

                    If sameRows Then
                    With Range(Cells(i, 6), Cells(i + 1, 6))
                    .Merge
                    .HorizontalAlignment = xlRight
                    .VerticalAlignment = xlCenter
                    .Value = 1
                    End With
                    End If

            sameRows = True
                    End If
        End If
daarheen:
Next i
Application.DisplayAlerts = True
End Sub

Bekijk bijlage 293161

is dit haalbaar met een For next? of is een DO While beter?