Como escrevo uma macro para alterar uma lista de números para aumentar em cada planilha?

Eu tenho uma planilha que tem uma lista de números na coluna 2. Preciso imprimir 50 folhas por vez, com os números aumentando em cada folha. Ou seja, a folha 1 começa com 2834 e termina em 2848; a próxima página começa em 2849 e termina em 2863 e assim por diante. Como escrevo a macro e onde coloco a macro? Estou perdida.

Nunca escrevi uma macro ou usei uma, mas tenho certeza de que essa seria a solução, além de imprimir cada página individualmente e alterar os números a cada vez.

microsoft-excel macros

— Rosemarie Lee
fonte

Este poderia ser um bom ponto de partida

Public Sub LotOfNumbers()
    lastSheet = 50
    numbersPerPage = 10
    selectedColumn = 2
    firstValue = 3000
    Dim wkb As New Workbook
    Dim wks As New Worksheet
    Set wkb = ThisWorkbook
    totalwks = Application.Sheets.Count
    i = 1
    actualValue = firstValue
    While i <= lastSheet
        If i <= totalwks Then
            Set wks = wkb.Sheets(i)
        Else
            wkb.Sheets.Add After:=Worksheets(Worksheets.Count)
        End If
        For j = 1 To numbersPerPage
            Cells(j, selectedColumn) = actualValue
            actualValue = actualValue + 1
        Next j

        i = i + 1
    Wend

End Sub

Abra VBA / Macros com ALT+ F11.

No lado esquerdo, clique duas vezes em A planilha, no lado direito, cole o código.

Ajustar as variáveis lastsheet, numbersPerPage, selectedColumne firstValueao seu gosto.

— jcbermu
fonte