Как упростить цикл для переноса данных с одного листа на другой

Question

У меня есть две таблицы («Торговый журнал» и «Статистика») в одной книге.Один - это база данных, а другой - выход для анализа цифр из базы данных.Теперь я хочу закодировать цикл, который вытягивает необходимую информацию из базы данных в выходной лист.В большей или меньшей степени речь идет о проверке 1-2 условий, а затем суммировании их для заполнения полей вывода на листе анализа.

Теперь я хотел бы написать один цикл для каждого поля вывода.Но я чертовски уверен, что могу это упростить?

Спасибо за ваши идеи!

Это мой первый цикл для одного выхода ... У меня около 120-140 выходов:

Sub update_statistics()

Dim lRow As Integer 'Last Row
Dim i As Integer 'Loop
Dim pair As String 'Currency Pair

lRow = Worksheets("Trade Log").Range("A" & Rows.count).End(xlUp).Row

'Total Stats Calculations

'Total Number of Trades

If Cells(3, 4).Value = "All" Then

Worksheets("Trade Log").Select

For i = 9 To lRow

    Worksheets("Statistics").Cells(7, 4).Value = (i + 1) - 8

Next i

Else

pair = Cells(3, 4).Value

Worksheets("Trade Log").Select

For i = 9 To lRow

    Worksheets("Statistics").Cells(7, 4).Value = 
 WorksheetFunction.CountIf(Range("D:D"), pair)

 Next i

 End If

 End Sub