Veja se é isso.

Agradeço imensamente!
Deu tudo certo.

Apesar de não entender quase nada de VBA, pesquisei aqui e alterei a parte do FitToPagesTall e FitToPagesWide e consegui que imprimisse no número de paginas necessárias e não que fosse sempre em somente uma página.
Deste modo, reitero o agradecimento pela ajuda e disponho abaixo o código final utilizado, para facilitar outros membros que tenham a mesma dúvida.
A area de impressão ficou da célula B4 até a célula H(número disposto em AA7)

Sub Imprimir()

Dim Ulinha As Long
Dim k As Long
Dim W As Long
Dim y As Long

'Seleciona a área de impressão
k = 2 ' coluna "B"
W = 4 'linha "4"
y = 8 'coluna "H"

Ulinha = ActiveSheet.Range("AA7").Value ' linha informada na célula "AA7"

ActiveSheet.Range(Cells(W, k), Cells(Ulinha, y)).Select

      
' Define o modelo de impressão
    With ActiveSheet.PageSetup

        .PrintArea = Selection.Address

        .Orientation = 1

        .PaperSize = xlPaperA4
        
        .FitToPagesTall = False
        
        .FitToPagesWide = 1
        
        .Zoom = False
      
        .Order = xlDownThenOver

    End With
    
'Exibe a visualização da impressão
    Application.Dialogs(xlDialogPrintPreview).Show


    'ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub