Office: Tabellenblatt per VBA immer an letzter Stelle einfügen

Hallo.
Ich würde gerne mit einer Schleife z.B. 10 Tabellenblätter einfügen. Sie sollen aber immer an letzter Stelle eingefügt werden (z.B. 2,3,4,5,6,7,8,9,10,11). Habe mir auch schon etwas ausgedacht. Dies funktioniert aber nicht so wie ich es will. Kann mir jemand sagen, wo der Fehler liegt:

Sub Tabellenblatt_einfügen()
Dim b As Integer
Dim c As Integer
Dim d As Integer
For a = 1 To 10
b = a + 1
c = a + 3
d = 3 + a
Sheets.Add
ActiveSheet.Name = b
Worksheets(b).Move After:=Worksheets(a)
Next
End Sub

:)

 

Hallo Rayler,

' neue Tabelle anlegen hinter der letzten Tabelle
Sheets.Add After:=Worksheets(Worksheets.Count)

 

Hallo Hajo_Zi.
Danke für die schnelle Hilfe. Funktioniert jetzt einbandfrei.

Danke.

Gruß Tayler.