Стоимость_блюда.Top = 0
 Перевод_блюда.Top = 0
 With F_Наименование_блюда
  S = Left(.Value, InStr(.Value, ". . . ") - 1)
  WizHook.TwipsFromFont .FontName, .FontSize, .FontWeight, .FontItalic, .FontUnderline, _
                        wzCch, S, wzMaxWidthCch, wzdx, wzdy
  K = wzdx \ .Width - ((wzdx Mod .Width) > 0)
  Debug.Print K;
  .Height = H(K) * 567
  Section(0).Height = H(K) * 567
  On Error Resume Next
  Стоимость_блюда.Top = Section(0).Height - Стоимость_блюда.Height
  Section(0).Height = Section(0).Height + Перевод_блюда.Height
  Перевод_блюда.Top = .Top + .Height
 End With

заменить на
  If F_Наименование_блюда = Наименование_блюда Then
   S = .Value
  Else
   S = Left(.Value, InStr(.Value, ". . . ") - 1)
  End If