I understand that it is not crowd based

The locking up was occurring even with a station in the destination. Being a Station i had visited and OCR'd
The Route planner still is a problem it is still causing a hard lock-up on my end. Even with 1.44a
Error im getting is
Microsoft Visual Basic
Run-Time error 13
Type Mismatch
and this from debug
wsZiel.Activate
wsZiel.Range("A:W").ClearContents
wsQuelle.UsedRange.SpecialCells(xlCellTypeVisible).Copy wsZiel.Range("A:W")
Worksheets("POS_SystemData").Range("A1:W20001").AutoFilter
anzahl = Worksheets("Data").Cells(15, 5).Value
ArTemp = Worksheets("TMP").Range("A2:W" & anzahl + 1)
For a = 1 To anzahl
If CheckGoods(CLng(ArTemp(a, 1))) Then
If (ArTemp(a, 4) = "ANARCHY" And FilterJuris(1) = True) Or (ArTemp(a, 4) = "EMPIRE" And FilterJuris(3) = True) Or (ArTemp(a, 4) = "ALLIANCE" And FilterJuris(2) = True) Or (ArTemp(a, 4) = "INDEPENDENT" And FilterJuris(5) = True) Or (ArTemp(a, 4) = "FEDERATION" And FilterJuris(4) = True) Then
If (Ar_DBType(ArTemp(a, 10), 3) = "L" And FilterPad(3) = True) Or (Ar_DBType(ArTemp(a, 10), 3) = "M" And FilterPad(2) = True) Or (Ar_DBType(ArTemp(a, 10), 3) = "S" And FilterPad(1) = True) Then
AzTemp2 = AzTemp2 + 1
For b = 1 To 23
ArTemp2(AzTemp2, b) = ArTemp(a, b)
Next b
ArTemp2(AzTemp2, 24) = Ar_StEff(ArTemp2(AzTemp2, 1), 2)
End If
End If
End If