Как перенести данные на разные листы (с разными ячейками диапазона на главном листе)

Question

Я создаю лист Excel, в котором он копирует данные со ссылочными ячейками на другой лист в том же Excel, что и у меня:

Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub

    If Not Intersect(Target, Range("b10:B10")) Is Nothing Then

        If IsNumeric(Target) Then

            'Stop any possible runtime errors and halting code

            On Error Resume Next

                'Turn off ALL events so the Target does not put the code into a loop.

                Application.EnableEvents = False

                Call Update_Monthly

                'Turn events back on

                Application.EnableEvents = True

            'Allow run time errors again

            On Error GoTo 0

        End If

    End If



End Sub

И я сделал другой код в модуле WS2 с этим кодом:

Sub Update_Monthly()
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Sheets("Daily Testing")
Set ws2 = Sheets("Monthly Record")
Application.ScreenUpdating = False
lr = ws2.Cells(Rows.Count, "C").End(xlUp).Row
For i = 1 To 5
ws2.Cells(i + lr, "C") = ws1.Cells(i + 5, "B")
Next i
Application.ScreenUpdating = True
End Sub

Диапазон столбцов относится к данным на листе 2. Теперь, если у меня есть лист 3, лист 4 Как я буду ссылаться на данные с одинаковым кодом w1 (но отличается только диапазоном b10: B10)?