Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim val1 As Long
Dim i As Integer
If Target.Offset(1, 0).Value = "" Then
For i = 1 To Len(Target)
If IsNumeric(Mid(Target, i, 1)) And Mid(Target, i, 1) <> 0 Then Exit For
Next i
val1 = Val(Mid(Target, i, 100))
Target.Offset(1, 0).Value = Mid(Target, 1, i - 1) & val1 + 1
End If
End Sub