Как мне изменить начальное значение моего автоинкрементного кода

Question

У меня есть этот код для увеличения ячейки после печати, но я не знаю, как изменить начальное значение.Сейчас она начинается с 1, но эта форма долгое время использовалась вручную, поэтому мне нужно, чтобы она начиналась около 105 300

Я попытался изменить значение ячейки (G9) в строке

ActiveSheet.Range("G9").Value = "" & I 

но всегда сбрасывается.Например я печатаю 3 копии и последовательность работ.Я печатаю еще 5, но в качестве отправной точки она вернулась к 105290.

Sub Macro1()
Dim xCount As Variant
Dim xScreen As Boolean
Dim I As Long
On Error Resume Next
LInput:
xCount = Application.InputBox("Please enter the number of copies you want to print:")
If TypeName(xCount) = "Boolean" Then Exit Sub
If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
MsgBox "error entered, please enter again", vbInformation
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCount
ActiveSheet.Range("G9").Value = "" & I
ActiveSheet.PrintOut
Next
ActiveSheet.Range("G9").UpdateContents
Application.ScreenUpdating = xScreen
End If
End Sub

Я ищу это для постоянного обновления ячейки, чтобы пользователю не приходилось делать это вручную.