Макрос для копирования нескольких строк с одного листа на другой, а затем скопировать заголовки в скопированные столбцы

Question

Я новичок в макросах и разработал этот макрос, который позволяет мне брать строки, в которых есть данные, из ячеек BG из Workseet "master 1", начиная со строки 11. Я беру эти данные и затем копирую их в лист 2 "База знаний" в следующей пустой строке и вставляю данные в столбец J.

Макрос работает в том смысле, что он делает то, что я хочу, но он вставляет данные в тот же рабочий лист - "Мастер 1", а не в другой рабочий лист "База данных знаний".

Я правильно пометил листы, поэтому не знаю, почему он не перейдет на следующий лист. Я, очевидно, что-то пропустил и хотел бы оценить некоторую помощь, пожалуйста :)

Sub Macro2()

    Selection.SpecialCells(xlCellTypeLastCell).Select
    TheLastrow = ActiveCell.Row

    For i = 11 To TheLastrow

        If Cells(i, 2).Value >= "0" Then
            Range(Cells(i, 2), Cells(i, 7)).Select
            Selection.Cut

            Dim b As Integer, c As Integer

            b = Worksheets.Count

            For c = 1 To b
                If ActiveWorkbook.Worksheets(c).Name = "Test run" Then
                    Worksheets("knowledge database").Select
                End If
            Next c

            erow = ActiveSheet.Cells(Rows.Count, 10).End(xlUp).Offset(1, 0).Row

            ActiveSheet.Cells(erow, 10).Select
            ActiveSheet.Paste
            ActiveWorkbook.Save
            Application.CutCopyMode = False
        End If

    Next i

End Sub