Dim rF As Range
Dim lLastRow As Long
   rF = Columns("B:B").Find(What:="*", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) 
   lLastRow = rF.Row
   ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range(Cells(1, 1), Cells(lLastRow, 18)).Address

Sub Печать()
Dim CellValue As String
Dim Path As String
Dim FinalFileName As String 'Объявляем переменные
Application.DisplayAlerts = False 'Временно отключаем показ вспомогательных сообщений
    Path = "C:\Users\alexa\Desktop\Report\" 'Путь сохранения файла
    CellValue = Range("C12") '№ ячейки для присвоения имени
    FinalFileName = Path & CellValue & ".pdf" 'Формируем итоговый путь и название файла
    Sheets(Array("3", "4", "5")).Select 'Выбираем нужные листы
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FinalFileName, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False 'Печатаем выбранное в ПДФ
    Sheets("Главный").Select 'Активируем главный лист
Application.DisplayAlerts = True 'Включаем показ вспомогательных сообщений
End Sub

Public Sub CopyTableData()
    Dim srcTable As ListObject
    Dim destTable As ListObject
    Set srcTable = ThisWorkbook.Worksheets("PLAN-UPD").ListObjects("PLANFROMFILE")
    Set destTable = ThisWorkbook.Worksheets("BASE").ListObjects("BASEPLAN")
    srcTable.DataBodyRange.Copy destTable.ListColumns(1).DataBodyRange.Offset(destTable.ListColumns(1).DataBodyRange.Rows.Count).Cells(1)
End Sub