Office: Konsolidieren von Listen, jede zweite Spalte ausfüllen

Hallo zusammen

Ich habe ein Makro geschrieben, dass verschieden Kontoblätter auf einer Übersicht Konsoldieren soll. Ich habe also an die 30 Tabellenblätter und möchte die auf eine Überischt auf Tabelle1 bzw. Übersicht haben. Der Code ist schon recht lang geworden, deshalb hab ich das Sheet auf das nötigste reduziert. Fragt euch also nicht warum in A2 und B2 die gleichen Werte sind, da diese erst später im Code bereinigt werden.
Es geht mir um den Übertrag der Konten von Tabelle1 (resp. Sheets(2)) auf die Überischt.

In Tabelle 1 sind die Werte wie folgt:

Ab Spalte B5 abwärts:
AUD
CHF
EUR

Ab Spalte C5 abwärts:
0.00
54,589.78
19,370.26

Nun sollen die Wert im Prizip Horizotal geschrieben werde:

Also in C2 AUD und dann in D2 den Betrag also 0.00
Dann E2 EUR und dann in F2 54,589.78

Mit der Schleife habe ich das probiert:

u.s.w.

Mit der Schleife:

With Sheets(I)
Zeile_K = .Range("B6").End(xlDown).Row
For Konten = 6 To Zeile_K

If .Range("B" & Konten).Value > 1 Then

Sheets(I).Range("B" & Konten).Copy _
Sheets(1).Cells(I, Konten - 3)

End If

Next Konten

End With
Next I

Das funktioniert naütlrich nicht die Zählvariable ja immer nur um 1 erhöht wird und er somit einfach die Währungen gleich aneinander hängt.

ich hab euch zur Veranschaulichung das sehr vereinfachte Sheeht angehängt. Wenn also jmd Rat weiss wär ich froh.
Die Überischts Tabelle muss natürlich immer gelöst werden vor ausführen des Makros.

Danke und Gruss

Silvan