Sub Zerk()
     Dim r&, c&, n&, v()
     v = [B2:F6].Value
     n = UBound(v)
     For r = 1 To n - 1
         For c = r + 1 To n
             v(r, c) = v(c, r)
     Next c, r
     [B8:F12] = v
End Sub

Sub Zerk()
     Dim r&, c&, n&, v()
     With [A1].CurrentRegion.Offset(1, 1)
         With .Resize(.Rows.Count - 1, .Columns.Count - 1)
             v = .Value
             n = UBound(v)
             For r = 1 To n - 1
                 For c = r + 1 To n
                     v(r, c) = v(c, r)
             Next c, r
             .Value = v
         End With
     End With
End Sub

Public Sub OFZMX()
     With Sheets("forMXOFZ").[A1].CurrentRegion
         .Borders.LineStyle = xlContinuous           'рисовуем все границы
         '.Borders.Weight = xlThin ' не обязательно
         .BorderAround , xlMedium                    'рисовуем внешние границы
         .Rows(1).Font.Bold = True                   'жирная первая строка
          
         On Error Resume Next
         Worksheets("MXOFZ").Activate                'если этого листа нет - создание листа с названием, иначе - очистка листа
         If Err Then Sheets.Add.Name = "MXOFZ" Else Sheets("MXOFZ").Cells.Clear
          
         Application.Run "ATPVBAEN.XLAM!Mcorrel", .Cells, Range("A1"), "К", True  'запуск прил анализ данных/корреляция
     End With
End Sub