Код не будет печататься в ячейках таблиц Excel

Question

Мы работаем со скриптами VBA.Назначение состоит в том, чтобы пройти по нескольким листам в наборе данных, суммировать два разных столбца и затем распечатать их в столбцах рядом с данными, которые уже есть.

Когда я запускаю код, кажется, ничего не происходит.Не появляется никаких сообщений об ошибках, и отладчик тоже ничего не получает.

Код

Sub Stock()
    Dim ticker As String
    Dim volume As Double
    volume = 0
    Dim WS_Count As Integer
    Dim i As Integer
    Dim summary_table_row As Integer
    summary_row_table = 2
    'Set worksheet count
    WS_Count = ActiveWorkbook.Worksheets.Count
    'Loop through each year of stock
    For i = 2 To WS_Count
        'Keep track of the years for each stock
        If ActiveCell.EntireColumn.Cells(i + 1, 1).Value <> ActiveCell.EntireColumn.Cells(i, 1).Value Then
            'Set ticker
            ticker = ActiveCell.EntireColumn.Cells(i, 1).Value
            'Set volume
            volume = volume + ActiveCell.EntireColumn.Cells(i, 7).Value
            'Print ticker
            Range("J" & summary_table_row).Value = ticker
            'Print volume
            Range("K" & summary_table_row).Value = volume
            summary_table_row = summary_table_row + 1
            volume = 0
        Else
            volume = volume + ActiveCell.EntireColumn.Cells(i, 7).Value
        End If
    Next i
End Sub

Пожалуйста, укажите мне направление, чтобы выяснить, что происходит?