30 чисел. Посчитать среднее арифметическое между кратными

Sub vadyusharamzes2()
Dim i%, StrokaIdx%
 
    ' очищаем актинвый лист
    Cells.Clear
    
    ' записиваем 30 случайных чисел в столбец "A"
    Randomize
    For i = 1 To 30
        Cells(i, "A") = Int((200 * Rnd) + 1)
    Next i
Stop
    ' пусть будет начало для записа чисел кратных 3 на третьей строке
    StrokaIdx = 3
    For i = 1 To 30
        ' если число Cells(i, "A") кратное 3, тогда
        ' это не простое деление на 3, здесь определяется остаток деления
        ' если остаток равен ноль, тогда число кратное ...
        If Cells(i, "A") Mod 3 = 0 Then
Zapis:
            If StrokaIdx Mod 3 = 0 Then
            ' если StrokaIdx кратнa 3, тогда
                Cells(StrokaIdx, "B") = Cells(i, "A")
                ' Здесь можно задать свой формат ячейки - это по вашему усмотрению:
                ' попробуйте записать макрос с желаемым форматом ячейки,
                ' в нём вы потом найдёте нужные вам функции
                ' сдвиг индекса строки
                StrokaIdx = StrokaIdx + 1   ' или сразу +3
                ' здесь можно посчитать:
                '   и количество чисел кратных 3
                '   и сумму чисел кратных 3
            Else
            ' если StrokaIdx по какой-то причине не кратнa 3, тогда
                StrokaIdx = StrokaIdx + 1
                GoTo Zapis
            End If
        End If
    Next i
    
    ' здесь можно посчитать среднее арифметическое:
    ' ...
    ' здесь можно попользоваться функцией MsgBox:
    ' https://docs.microsoft.com/ru-ru/office/vba/language/reference/user-interface-help/msgbox-function
    ' ...
    
End Sub