Работа с матрицами

Option Explicit
 
Sub AeroButton1()
    Dim i&, j&
    Randomize Timer
    With FindTab("Матрица 1")
        For i = 1 To .Rows.Count: For j = 1 To .Columns.Count
            .Cells(i, j).Value = Fix(Rnd * 100)
        Next j, i
    End With
    With FindTab("Матрица 2")
        For i = 1 To .Rows.Count: For j = 1 To .Columns.Count
            .Cells(i, j).Value = Fix(Rnd * 100)
        Next j, i
    End With
    With FindTab("Матрица 3")
        For i = 1 To .Rows.Count: For j = 1 To .Columns.Count
            .Cells(i, j).Value = 0
        Next j, i
    End With
End Sub
 
Sub AeroButton2()
    
    Dim matrix1 As Range, matrix2 As Range, i&, j&
    Set matrix1 = FindTab("Матрица 1")
    Set matrix2 = FindTab("Матрица 2")
    
    With FindTab("Матрица 3")
        For i = 1 To .Rows.Count: For j = 1 To .Columns.Count
            .Cells(i, j).Value = Abs(matrix1.Cells(i, j).Value > matrix2.Cells(i, j).Value)
        Next j, i
    End With
    
    
End Sub
 
Function FindTab(NameTab$, Optional After As Range) As Range
    Dim i&, j&
    On Error Resume Next
    If After Is Nothing Then Set After = Cells(1, 1)
    Set After = Cells.Find(NameTab, After, xlFormulas, 2, 1, 1, 0, 0)
    i = Cells(Rows.Count, After.Column).End(xlUp).Row
    With Cells.Find("", After, xlFormulas, 2, 1, 1, 0, 0)
        j = .Column - 1
    End With
    Set FindTab = Range(Cells(After.Row + 1, After.Column), Cells(i, j))
End Function