Как быстро пройтись по каждой ячейке на листе?

Question

Я сравниваю столбцы A двух листов, и, если они совпадают, значение во втором столбце листа 1 добавляется к общей сумме во втором столбце листа 2

Лист1 и Лист2 соответственно Столбец 2 листа 2 пуст до того, как будет выполнен приведенный ниже код.

Function TotalNames()

Dim sht1 As Worksheet
Dim sht2 As Worksheet

Set sht1 = ActiveWorkbook.Worksheets("Sheet1")
Set sht2 = ActiveWorkbook.Worksheets("Sheet2")

For i = 1 To 4

    For j = 1 To 8

        If sht1.Cells(j, 1).Value = sht2.Cells(i, 1).Value Then

            sht2.Cells(i, 2).Value = sht2.Cells(i, 2).Value + sht1.Cells(j, 2).Value

        End If

    Next j

Next i

End Function

Я работаюв проекте, который сравнивает много столбцов и строк между этими двумя листами, и это может занять много времени для обработки.Я также выключил обновление экрана и расчеты вручную, но надеялся, что это можно ускорить с помощью массивов или диапазонов, но сейчас не могу понять, с чего начать.