Automatic Next Cell Numbering For Bespoke Number Style?

I am trying to work out how to automaticaly fill in the next number in a sequence of bespoke numbers like this in column B 1012-0153-70, next 1012-0153-71, next 1012-0153-72 and so on so when i click on the next open cell in column B it adds the next number in the sequence

I have the following VBA code in my Sheet:

Private Sub Worksheet_SelectionChang()
With Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
If Target.Address = .Address Then
.Offset(-1, 0).AutoFill Destination:=.Offset(-1, 0).Resize(2, 1), Type:=xlFillDefault
End If
End With

but nothing seems to work. i also have the following VBA code on the same sheet:

Private Sub ComboBox1_Change()
End Sub
Private Sub Calendar1_Click()

[Code].....