Makro transponierung

eine frage hierzu, ich habe folgendes problem

ich kann z.b. den bereich a1:a5 markieren, dann kopieren, dann in ein neues tabellenblatt und dann inhalte einfügen, transponieren. das ganze als makro aufzeichnen und gut ist… vorerst

hier das makro

Range(„A1:A5“).Select
Selection.Copy
Sheets(„Tabelle2“).Select
Range(„A1“).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets(„Tabelle1“).Select
Range(„A7:A11“).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(„Tabelle2“).Select
Range(„A2“).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets(„Tabelle1“).Select
Range(„A13:A17“).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(„Tabelle2“).Select
Range(„A3“).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

ich hab das ganze 3 mal gemacht, benötige aber eine schleife.
wie bekomme ich da ne schleife rein, das er bei der range vom tabellenblatt 1 immer 6 zeilen addiert (also a1 + 6 ; als auch a5 + 6), später dann a7 + 6 usw. und bei tabellenblatt 2 aber nur 1 zeile addiert!?

lg

Hallo Killer,

beschreib mal genauer was du da möchtest.
Mal ist von A1:A5 also von 5 Zellen die Rede, danach von 6 Zellen, dann von A1 +6 was wohl A1:A7 bedeutet, also 7 Zellen.

Gruß
Reinhard

Nachtrag
Hallo Killer,

und was soll in dem Zusammenhang „addieren“ sein?
Im Code sehe ich dazu nix.

Gruß
Reinhard