Boa tarde!!

Há algumas formas, uma delas seria...
Digitar dentro da macro os intervalos (190 mini tabelas).

Sub DigiteSeusIntervalos()
     
    Dim rngIntervalo1 As Range
    Dim rngIntervalo2 As Range
    '..E por ai vai....
    Set rngIntervalo1 = Range("$A$1:$AE$100")
    Set rngIntervalo2 = Range("$A$120:$AE$130")
    '..E por ai vai....
    With ActiveSheet
        .PageSetup.PrintArea = Union(rngIntervalo1, rngIntervalo2).Address
    End With
     
End Sub

Ou tente selecioanr o intervalo e imprimir...

Sub AleVBA_20391()
  ans = MsgBox(Prompt:="AleVBA..", Buttons:=vbYesNoCancel, Title:="Imprimir Intervalo")
  If ans = vbCancel Then Exit Sub
    If ans = vbYes Then
      Selection.PrintOut
    Else
      Selection.PrintOut Preview:=True
    End If
End Sub

Obs. Códigos não testados
Att