Option Explicit
Sub one()
    Dim tablA(12) As Integer, _
        tablB(12) As Integer, _
        Cell As Object, _
        sum7 As Integer, _
        pr3 As Double, _
        minA As Integer, _
        minB As Integer, _
        adrA As Integer, _
        adrB As Integer, _
        n As Integer, _
        m As Integer, _
        WorkCell As Object


    Sheets("Лист1").Cells.Clear
    sum7 = 0
    pr3 = 1
    m = 0
    minA = 100
    minB = 100

    For n = 1 To 12

        tablA(n) = CInt(10 * Rnd)
        tablB(n) = CInt(10 * Rnd)

        If tablA(n) < minA Then
            minA = tablA(n)
            adrA = n
        End If

        If tablB(n) < minB Then
            minB = tablB(n)
            adrB = n
        End If

    Next n

    For n = 1 To 7
        sum7 = tablA(n) + sum7
    Next n

    For n = 9 To 12
        pr3 = tablB(n) * pr3
    Next n

    MsgBox "Сумма первых 7 В массиве А = " & sum7 & vbNewLine & "Произв крайних 3 В массиве B = " & pr3

    If sum7 < pr3 Then

        n = 1
        For Each WorkCell In Sheets("Лист1").Range("A5:L5")
            WorkCell.Value = tablA(n)
            If n = adrA Then
                With WorkCell.Font
                    .ColorIndex = 3
                End With
                WorkCell.Value = minB
            End If
            n = n + 1
        Next WorkCell

        n = 1
        For Each WorkCell In Sheets("Лист1").Range("A6:L6")
             WorkCell.Value = tablB(n)
             If n = adrB Then
                 With WorkCell.Font
                     .ColorIndex = 3
                 End With
             WorkCell.Value = minA
             End If
             n = n + 1
        Next WorkCell

    Else

        For n = 1 To 12
            m = tablA(n) + m
        Next n
        MsgBox "Сумма всех элементов массиве А = " & m
    End If

    n = 1
    For Each WorkCell In Sheets("Лист1").Range("A1:L1")
        WorkCell.Value = tablA(n)
        n = n + 1
    Next WorkCell

    n = 1
    For Each WorkCell In Sheets("Лист1").Range("A2:L2")
        WorkCell.Value = tablB(n)
        n = n + 1
    Next WorkCell

End Sub