Function Kramer(A As Variant, B As Variant) As Variant
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim ARowCount As Integer
Dim BRowCount As Integer

Dim detA As Double
Dim ColNo As Integer

Dim DeltaMatrix() As Double
Dim res As Variant

     If TypeOf A Is Range Then
         A = A.Value
     ElseIf Not IsArray(A) Then
         MsgBox "Не задана матрица X"
         Exit Function
     End If
     If TypeOf B Is Range Then
         B = B.Value
     ElseIf Not IsArray(B) Then
         MsgBox "Не задан вектор-столбец Y"
         Exit Function
     Else: ReDim Preserve B(UBound(B), 1)
     End If
     With Application
         If .Count(A) <> .CountA(A) Then
             MsgBox "Не все элементы матрицы X являются распознаваемыми как числа. Возможно, какой-то из элементов введен неправильно"
             Exit Function
         ElseIf .Count(B) <> .CountA(B) Then
             MsgBox "Не все элементы вектора-столбца Y являются распознаваемыми как числа. Возможно, какой-то из элементов введен неправильно"
             Exit Function
         ElseIf UBound(A) <> UBound(B) Then
             MsgBox "количество строк в векторе-столбце Y и матрице X не совпадает. Видимо, был выделен неправильный диапазон чисел"
             Exit Function
         ElseIf UBound(A, 1) <> UBound(A, 2) Then
             MsgBox "Матрица X не является квадратной. Вычисление определителя невозможно"
             Exit Function
         End If
         ColNo = UBound(A)
         detA = .MDeterm(A)

         ReDim res(1 To ColNo)

         If detA = 0 Then
             MsgBox "Определитель матрицы равен нулю. Метод Крамера невыполним."
             Exit Function
         End If

         For i = 1 To ColNo
             For j = 1 To ColNo
                 Debug.Print ("Hello world")
             Next j
         Next i

         For i = 1 To ColNo
             ReDim DeltaMatrix(1 To ColNo, 1 To ColNo)

             For k = 1 To ColNo
                 For j = 1 To ColNo
                     DeltaMatrix(k, j) = A(k, j)
                 Next j
             Next k

             For j = 1 To ColNo
                 DeltaMatrix(j, i) = B(j, 1)
             Next j

             res(i) = .MDeterm(DeltaMatrix) / detA
         Next i
         Kramer = .Transpose(res)
     End With
End Function