Решить задачу в VBA Exel

13.Дана матрица E(4, 4) из целых чисел. Если среднее арифметическое её диагональных элементов положительно, то заменить им (средним арифметическим) минимальный элемент третьей строки. Если нет, то все элементы матрицы разделить на максимальный элемент второго столбца. Вывести полученную матрицу.