Je tam obmedzenie na 10 stĺpcov v prípade, že mu nenastavíš zdroj dát: ListBox.ColumnCount Property

Uprav si to nejako takto:

Dim aList(0 To 0, 0 To 12)
With frmKarta
    .lsbLRD.List = aList
    .lsbLRD.AddItem
    .lsbLRD.List(j, 0) = Sheets("RPNI").Range("A" & i).Text
    .lsbLRD.List(j, 9) = Sheets("RPNI").Range("X" & i).Text
    .lsbLRD.List(j, 10) = Sheets("RPNI").Range("Y" & i).Text
End With