Office 2010: Fortlaufende Nummerierung Excel-Datenbank

[Splash]

Hallo,

der folgende Code...

Dim last As Integer

last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

Cells(last, 1).Value = 1
Range(Cells(last, 1), Cells(Rows.Count, 2).End(xlUp).Offset(0, -1)).DataSeries Type:=xlDataSeriesLinear
Cells(last, 2).Value = DTPicker1

...bewirkt in meinem Tabellenblatt, dass in Spalte A eine fortlaufende Nummerierung erfolgt. Nun möchte ich gerne, dass hinter der fortlaufenden Nummer in Spalte A auch das Jahr aus dem DTPicker1 (Spalte B) in der Form 1/2018, 2/2018 usw. erfolgt. Des weiteren möchte ich gern das jedes Jahr einzeln hochgezählt wird (1/2018, 2/2018, 1/2019, 3/2018, 2/2019 usw.).
Ist das mit VBA in Excel überhaupt möglich?

MfG
Splash