Ich habe die Schleife mit der MsgBox entfernt/ deaktiviert und

If blnInsert Then Call Rows(liZeile).Insert(xlShiftDown)

durch

If blnInsert Then Call Rows(liZeile).EntireRow.Insert(CopyOrigin:=xlFormatFromLeftOrAbove)

ersetzt.

1. Eintrag klappt, 2. auch der 3. zwar auch, jedoch wird dieser vor dem 2. platziert. Was schlecht ist, da die Einträge Abteilungsweise chronologisch aneinander gesetzt sein sollen. Das Einfügen der zeil funktioniert bei auch, es wird nach dem letzten Eintrag eine neue zeile gefügt, auch in den anderen Bereichen klappt es.