Array til listboks i Userform

Vis lidt kode, så kan fejlen(e) måske findes

Det er faktisk med vilje jeg ikke har sat kode ind for at få en anden til gang til opgaven end min.

Der er masser af metoder til det - her er en hurtig - dog en jeg næsten aldrig bruger, da jeg normalt læser hele kilden ind i et array, og så løber det igennem... det er væsentig hurtigere end at skulle evaluere på cellerne, men det skal vi jo gøre her (FED)

Private Sub UserForm_Activate()
    Dim lRow As Long
    Dim wsSource As Worksheet
    Dim rSource As Range
   
    'Definer kilden
    Set wsSource = ActiveSheet
    Set rSource = ActiveSheet.Range("A1").CurrentRegion.Columns(1)
   
    For lRow = rSource.Cells(1, 1).Row To rSource.Cells(rSource.Rows.Count, 1).Row
        If rSource.Cells(lRow, 1).Font.Bold = True Then
            Me.ListBox1.AddItem rSource.Cells(lRow, 1).Value & ", " & lRow
        End If
    Next lRow
   
End Sub

Det var slet ikke sådan jeg have grebet det an så det var godt at få en anden vinkel på det.

Jeg får dog kun 7 fede linjer når jeg springer de 2 første rækker over (overskriften til kolonerne) 9 fede linjer hvis jeg tager de 2 rækker med også.
Den stopper med at læse mellem linje 103 og 116. Der er lige nu 758 linjer der skal loopes igennem samt 38 fede linjer.

Nogen gode bud på hvor jeg finder begrænsningen?

den looper 112 linjer igennem, linje 112 er ganske vist tom men er ikke den første tomme linje heller ej den sidste. slette jeg den stopper den ved linje 115 som også er tom.

Fandt den selv ved at ændre For loopet lidt til
  For lRow = rSource.Cells(3, 25).Row To rSource.Cells(Rows.Count, 25).End(xlUp).Row