Macro para copiar várias linhas de uma planilha para outra e, em seguida, copiar os títulos em colunas copiadas

Question

Sou novo em macros e desenvolvi essa macro que me permite obter linhas que contêm dados nelas das células BG do Workseet "master 1" a partir da linha 11. Pego esses dados e copio-os para a planilha 2 "Banco de dados de conhecimento" na próxima linha vazia e cole os dados na coluna J.

O tipo de macro funciona na medida em que faz o que eu quero, mas parece colar os dados na mesma planilha - "Master 1" em vez da outra planilha "Knowledge Database".

Rotulei as folhas corretamente, por isso não sei por que ele não vai para a próxima folha. Eu obviamente perdi alguma coisa e gostaria de receber alguma ajuda, por favor :)

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