Bom dia pessoal.

Tenho uma planilha que faz marcações em documentos. Em uma planilha insiro os dados, e na outra copia os dados já em formato de impressão.

Na planilha de impressão, tenho 256 páginas configuradas pra copiar os dados da planilha de listagem.

O que quero fazer é inserir um botão pra imprimir, e que imprima somente as páginas que foram preenchidas. Tenho um botão que conta as linhas preenchidas e assim quando vou imprimir manualmente seleciono páginas 1 até 10, 1 até 25 etc.

O código que estava tentando bolar:

Sub printpages()
Dim qtd As Long
qtd = Sheets("LISTAGEM").Cells(E, 6).Value
With ThisWorkbook
    .Activate
        With .Worksheets("IMPRESSAO")
            .Activate
            ActiveSheet.PrintOut From:=1, To:=qtd
         End With
End With
End Sub

Mas tem alguma coisa que não está fechando aí Muito obrigado a quem puder ajudar!