Sub ex()
  
  'Dim AppWord As Word.Application
  Dim AppWord As Object
  Dim shtA As Worksheet
  Dim shtExD As Worksheet
  'Dim shtExN As Worksheet
  Dim rngExD As Range
  'Dim rngExN As Range
  
  Set shtA = ThisWorkbook.Sheets("Класс А")
  Set shtExD = ThisWorkbook.Sheets("ExD")
  'Set shtExN = ThisWorkbook.Sheets("ExN")
  Set rngExD = shtExD.Range("A1").CurrentRegion
  'Set rngExN = shtExN.Range("A1").CurrentRegion
  
  Set AppWord = CreateObject("Word.Application") 'создание файла Word
  
  AppWord.Visible = True 'активация
  AppWord.Documents.Add ' добавление

  If shtA.Range("M2") = 1 Then
    rngExD.Copy
  Else
    'rngExN.Copy
  End If
  
With AppWord.Selection
  .Paste
  .WholeStory
  .Font.Name = "Times New Roman"
  .Font.Size = 12
  '.ParagraphFormat.Alignment = wdAlignParagraphJustify
  .ParagraphFormat.Alignment = 3
  '.HomeKey Unit:=wdLine
  .HomeKey Unit:=5
  '.MoveRight Unit:=wdWord, Count:=6, Extend:=wdExtend
  .MoveRight Unit:=2, Count:=6, Extend:=1
  '.ParagraphFormat.Alignment = wdAlignParagraphCenter
  .ParagraphFormat.Alignment = 1
  .Font.Grow
  '.MoveLeft Unit:=wdCharacter, Count:=1
  .MoveLeft Unit:=1, Count:=1
End With

With frmOk
      .Label2 = "Выгрузка выполнена."
      .Show
    End With
    
Application.CutCopyMode = False
AppWord.Activate

End Sub

Sub шкалаА()
On Error GoTo Ops
Dim shtA As Worksheet
Set shtA = ThisWorkbook.Worksheets("Класс А")
Dim X As Variant
Dim Y As Variant
Dim rngX As Range
Dim rngY As Range
Set rngX = Sheets("Класс А").Range("выгрузкаС")
Set rngY = Sheets("Класс А").Range("выгрузкаПО")
X = rngX.Value
Y = rngY.Value
ThisWorkbook.Worksheets("Класс А").PivotTables("СТ_классА").PivotFields("Дата").ClearAllFilters
ThisWorkbook.Worksheets("Класс А").PivotTables("СТ_классА").PivotFields("Дата").PivotFilters.Add2 Type:=xlDateBetween, Value1:=X, Value2:=Y
Exit Sub
Ops:
FrmA.TextBox1 = Format(shtA.Range("A19").Value, "dd/mm/yyyy")
FrmA.TextBox2 = Format(shtA.Range("A21").Value, "dd/mm/yyyy")

MsgBox "Ошибка выбранного периода"
End Sub