Save Current Worksheet as PDF

Even though it is called "Save to PDF" it is still "Printing to PDF", whatever your print settings are will be how the sheet PDF's, you may have to place the tables below each other and use page breaks

Try this...

Sub SavePDFreview()
    
    Dim strPath As String, FileName1 As String
    Dim rng As Range, c As Long
    
    Set rng = Range("A4").CurrentRegion
    For c = 1 To Cells.Find("*", , , , 2, 2).Column Step 7
        Set rng = Union(rng, Cells(14, c).CurrentRegion)
    Next c
    
    With ActiveSheet.PageSetup
        .PrintArea = rng.Address
        .FitToPagesTall = False
        .FitToPagesWide = 1
    End With
    
    ActiveWindow.SelectedSheets.PrintPreview
    
    strPath = "C:\Users\lmendesduarte\Documents\"
    FileName1 = "Meeting Details - Report "
    ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path & FileName1 & Format(Date, "yyyymmdd") & ".pdf", OpenAfterPublish:=False
    
End Sub

This is a sample

Hello .. Thanks a lot Mr. AlphaFrog for this wonderful code ..
What about this change so as to make each range to be printed into one page

    With ActiveSheet.PageSetup
        .PrintArea = rng.Address
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .Orientation = xlLandscape
        .CenterHorizontally = True
        .CenterVertically = True
    End With

You're welcome ..
And thanks a lot for Mr AlphaFrog for his great efforts in the forum
Best Regards for all of you

Hello
Sorry for changing .. for test purposes

Sub SavePDFreview()
    Dim strPath     As String
    Dim fileName    As String
    Dim rng         As Range
    Dim c           As Long

    Set rng = Range("A4").CurrentRegion
    For c = 1 To Cells.Find("*", , , , 2, 2).Column Step 7
        Set rng = Union(rng, Cells(14, c).CurrentRegion)
    Next c

    With ActiveSheet.PageSetup
        .PrintArea = rng.Address
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .Orientation = xlLandscape
        .CenterHorizontally = True
        .CenterVertically = True
    End With

    strPath = "C:\Users\lmendesduarte\Documents\"
    fileName = "Meeting Details - Report "
    ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=Path & FileName1 & Format(Date, "yyyymmdd") & ".pdf", OpenAfterPublish:=False
End Sub