Hallo zusammen!

Ich sitze nun seit einigen Tagen an einem Problem, zu dem ich einfach keine Lösung finden kann. Ich habe eine Tabelle die folgendermaßen aufgebaut ist:

In der ersten Zeile sind in Spalte A bis M Überschriften. Die zweite Zeile ist ein Platzhalter für die Gruppierung der drunterliegenden Zeilen und is mit A sortiert. In diese Gruppierung kommen sollen nun Standorte mit dem Anfangsbuchstaben A. So soll das noch für alle weiteren Buchstaben weitergehen. In Spalte A stehen also die Standorte, in Reihe 3 mit "Aachen" in A3 und den zugehörigen Daten in B3 bis M3 zum Beispiel der erste Eintrag. Von Reihe 3 bis 10 sind nun zum Beispiel Einträge mit "Aachen" in Spalte A. Daraufhin folgen zwei Leerzeilen und es folgt der zweite Standort mit zb "Aalen". Soweit zum Aufbau der Datenliste.

In einer anderen Tabelle habe ich nun eine kleine Oberfläche erstellt, wo man die entsprechenden Daten eingeben kann. Der Standort wird zum Beispiel mit

st = Tabelle1.Cells(5, 5)

in der Variablen st gespeichert. Nun möchte ich, dass per Buttonklick die Daten in die zweite Tabelle an entsprechender Stelle, nämlich unter den anderen Daten des entsprechenden Standortes eingefügt werden. Ich habe dafür folgendes versucht:

Tabelle2.[A3].Activate
IngLast = 3
    
Do Until ActiveCell = st
    ActiveCell.Offset(1, 0).Activate
    If ActiveCell <> st Then
        IngLast = IngLast + 1
    End If
Loop
Do Until ActiveCell = ""
    ActiveCell.Offset(1, 0).Activate
    If ActiveCell <> "" Then
        IngLast = IngLast + 1
    End If
Loop
IngLast = IngLast + 1

Tabelle2.Cells(IngLast, 1).EntireRow.Insert
Tabelle2.Cells(IngLast, 1).Value = st

In Tabelle2.Cells(IngLast,2) und den weiteren Spalten sollen dann noch die weiteren Daten, die ebenfalls in einer Variablen gespeichert wurden eingefügt werden. Das Einfügen klappt soweit auch ganz gut, allerdings landen die Daten in einer komplett falschen Reihe. Mein Gedanke war, dass die oberste Zelle, wo der Standort sein könnte markiert wird, anschließend solange überprüft wird ob es der richtige Standort ist und eine Reihe runtergegangen wird, bis der richtige Standort gefunden wurde. Gleichzeitig wird die Variable IngLast mit 3 initialisiert und bei jedem durchlaufen +1 dazugenommen. So erhält man die erste Zelle als Integer. Wurde nun der richtige Standort gefunden, wird quasi ab da nochmal das gleiche gemacht, diesmal aber solange bis die aktivierte Zelle leer ist. Daraufhin soll dann eine leere Zeile eingefügt werden, damit die restlichen Daten nach unten rutschen und anschließend kommen alle Daten aus den Variablen in die Zeile. Mein Problem ist jetzt, dass er einfach jedesmal ein paar Zeilen zu hoch ist und die neuen Daten irgendwo mitten in den vorhandenen eingetragen werden.

Habt ihr eine Idee, was ich da falsch gemacht haben könnte, oder ob ich einen falschen Ansatz habe? Für eure Hilfe wäre ich extrem dankbar.

Viele Grüße

Poempel