Фильтрация и суммирование только с видимыми ячейками в VBA

---

Привет, ребята, мне нужна ваша помощь, у меня есть файл Excel, и я хочу автоматизировать следующую процедуру: мой файл имеет несколько строк,связанных с одной и той же страной, поэтому мне нужно отфильтровать по коду ISO страны, затем я суммирую квартальные данные 2015 года, чтобы создать новый столбец с суммой, но суммой только с видимыми ячейками..... затем я должен повторить это в течение следующих лет (2016,2017, ecc).... затем я хочу суммировать итоговые значения строк (например, 2015 года) и скопировать сумму в другую ячейку на другом листе того же файла.
Я надеюсь быть ясным, ниже вы можете найти мои попытки, но это не работает (я запускаю два отдельных макроса)

Что я уже пробовал:

MACRO1

Sub Macro1() 

Dim LR As Long 

Sheets("WEBSTATS_DEBTSEC_DATAFLOW_csv_c").Select
Sheets("WEBSTATS_DEBTSEC_DATAFLOW_csv_c").Range("$A$1:$BF$218591").AutoFilter Field:=3, Criteria1:="SA" 
LR = Range("AJ" & Rows.Count).End(.xlUp).Row 
Range("AJ2" & LR).SpecialCells(xlCellTypeVisible).Select

End sub


MACRO2


Sub Macro2() 
Sheets("Country Total").Select 
Range("B10").Select 
ActiveCell.FormulaR1C1 = "=SUM(WEBSTATS_DEBTSEC_DATAFLOW_csv_c!R[346]C[36]:R[174666]C[36])" 
End Sub

---