Цикл для суммирования отклонений - VB

Формулировка задачи:

Здравствуйте!
Подскажите, пожалуйста, как написать макрос, для решения подобной задачи:
имеется 2400 строк на листе, и для каждой строки необходимо для последних 54 столбцов выполнить следующее - из каждой такой ячейки нужно вычесть число, которое находится, скажем, в 5 столбце, и если разность больше 0, то нужно просуммировать данные значения
Отчасти представляю, как такое записать в Delphi, но вот в ВБА боюсь накосячить с циклом

Dim i As Integer
    Dim j As Integer
    Dim S As Integer
    S=0
    For i = 18 To 2403
        For j = 39 To 92
      If Cells(i, j) > Cell(i,5)
        S = S+Cells(i, j)
      End If
     

Дальше этго пока не продвинулась, идеи есть, но путаюсь в реализации

Решение задачи: «Цикл для суммирования отклонений»

textual
                            Листинг программы 
                        

                            Sub R

    Dim I As Long, J As Long, Summ As Long
    Dim wsList As Worksheet
    Set wsList = ThisWorkbook.Sheets("Ëèñò1")
    
    For I = 18 To 2403
        For J = 38 To 91
            If wsList.Cells(I, J) > wsList.Cells(I, 17) Then
                Summ = Summ + wsList.Cells(I, J) - wsList.Cells(I, 17)
            End If
        Next
        wsList.Cells(I, 95) = Summ
    Next
        MsgBox Summ, vbInformation
        
End Sub

                        