Cara membuat angka +1 dari lembar sebelumnya

Saya ingin menyalin satu lembar ke beberapa lembar di buku kerja yang sama dengan makro, saya tahu bagaimana melakukannya tetapi saya masih memiliki pertanyaan lebih lanjut.

Saya menggunakan rumus:

Sub Button3_Click()
Dim x As Integer
Dim y As Integer
x = InputBox("How many copies you want?")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

Katakanlah saya menyalin satu lembar menjadi 5 lembar baru, Nama lembar tersebut adalah:

Sheet 1 | Sheet 1 (2) | Sheet 1 (3) | Sheet 1 (4) | Sheet 1 (5) | Sheet 1 (6) 

Yang saya inginkan adalah:

the formula in the "Sheet 1 (2)" Cell A1 is "='Sheet 1'A1+1" and 
the formula in the "Sheet 1 (3) cell A1 is "='Sheet 1 (2)'A1+1: and 
the formula in the "Sheet 1 (4) cell A1 is "='Sheet 1 (3)'A1+1: and
the formula in the "Sheet 1 (5) cell A1 is "='Sheet 1 (4)'A1+1: and

Atau apa pun rumusnya, saya hanya ingin sel sheet A1 berikutnya merujuk ke angka dengan +1 dari lembar sebelumnya. (Sama seperti halaman).

Saya ingin tahu bagaimana melakukannya terutama di excel 2003?

Pada Sheet 1 (2)di A1masukkan

=SUM(Sheet 1!A1,1)

Dan masing-masing ke lembar lain.

Untuk LibreOffice itu akan

=SUM(Sheet 1.A1,1)

Coba tambahan ini ke kode Anda:

Sub Button3_Click()
Dim x As Integer
Dim y As Integer, tmpSheet As Worksheet
x = InputBox("How many copies you want?")
For numtimes = 1 To x
    ActiveWorkbook.Sheets("Sheet1").Copy _
    After:=ActiveWorkbook.Sheets("Sheet1")
Next
For y = 2 To x + 1
    Set tmpSheet = ActiveWorkbook.Sheets("Sheet1 (" & y & ")")
    If y = 2 Then
        tmpSheet.Range("A1").Formula = "='Sheet1'!A1 + 1"
    Else
        tmpSheet.Range("A1").Formula = "='Sheet1 (" & y - 1 & ")'!A1 + 1"
    End If
Next y
End Sub