AutoFit Cell содержимое при печати

Question

Я создал приложение Excel, где пользователи вводят комментарии для каждого вопроса.

Я разработал электронную таблицу Excel таким образом, чтобы объединять ячейки для сбора больших текстовых данных. Проблема, с которой я столкнулся, заключается в том, что когда комментарии превышают три строки, и когда мне нужно распечатать файл Excel, он обрезает содержимое ячейки.

Как динамически увеличить размер ячейки, когда введенный текст достаточно большой. ?

Private Sub Workbook_Open()

   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   ThisWorkbook.Sheets("Sheet1").Activate

   Application.PrintCommunication = False
    With Sheets("Sheet1").PageSetup
      .Zoom = False
      .FitToPagesWide = 1
      .FitToPagesTall = False
    End With
  Application.PrintCommunication = True
  Application.ScreenUpdating = True
  Application.DisplayAlerts = True

End Sub