Bom dia,

Utilizando somente o F5 e utilizando o botão especial você não consegue selecionar as constantes e as fórmulas para definir os intervalos.

Logo, eu fiz este procedimento VBA abaixo que se aplica a qualquer planilha para selecionar apenas as células visíveis e determinar a área de impressão.

Sub gfSomenteCelulasVisiveis()
    Dim rngConstants    As Range
    Dim rngFormulas     As Range

    Set rngConstants = Selection.SpecialCells(xlCellTypeConstants, 23)
    Cells(1, 1).Select
    Set rngFormulas = Selection.SpecialCells(xlCellTypeFormulas, 23)
    Cells(1, 1).Select
    
    ActiveSheet.PageSetup.PrintArea = rngConstants.Address & "," & rngFormulas.Address
    
End Sub

Qualquer coisa diferente por favor avise

pow! funcionou perfeitamente!
Valew mesmo!