Сумма от третьего ряда до последнего ряда в столбце B

Question

У меня ошибка, которая не позволяет мне правильно запустить мой макрос.Когда я пытаюсь запустить свой макрос, у меня появляется сообщение об ошибке runtime error 1004 application defined or object defined error

Я проверил свой код, ошибка возникает из этой части моего кода: Range("K1") = "= SUM(" & thirdRow & "B:B" & LastRow & ")"

Кажется, чточасть «B: B» этой строки неправильно распознается в моем коде.Фактически, я хотел бы, чтобы мой макрос возвращал в ячейку K1 значение суммы моей третьей ячейки в столбце B до моей последней ячейки в столбце B;в этом случае 587,29 (см. скриншот, обведенный красным).Спасибо заранее.Хави

Sub jfdjdgfjg()
  Dim i as Long, counter As Long
  Dim thirdcell As Range
  Dim r As Range
  Set r = ActiveCell
  Dim LastRow As Long
  Dim thirdRow As Long

  LastRow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
  Range("B1").Activate

  For i = 2 To LastRow 'assuming a header row not to be counted
    If r.Rows(i).EntireRow.Hidden = False Then counter = counter + 1
      If counter = 2 Then
        Set thirdcell = r.Cells(i, "A")
        Exit For
      End If

  Next i

  Debug.Print thirdcell
  Debug.Print LastRow
  thirdRow = thirdcell.Row
  Debug.Print thirdRow
  Range("K1") = "= SUM(" & thirdRow & "B:B" & LastRow & ")"
End Sub