Boa dia
Pessoal
Assunto: Extrair dados de uma planilha para outra com base em um critério

Sou novato com a criação de Macros, Criei a macro, mas ela não esta apagando, a planilha solicitada, vocês poderiam ver o que esta acontecendo, por favor, e como criar um botão para executar a macro, segue anexo do arquivo.

Planilha4.Range("A8:F500").ClearComments
    ultimalinha = Planilha1.Cells(Rows.Count, "a").End(xlUp).Row
    lin = 8
    For i = 8 To ultimalinha
        If Planilha1.Cells(i, 6) < 5 Then
            Planilha4.Cells(lin, 1) = Planilha1.Cells(i, 1)
            Planilha4.Cells(lin, 2) = Planilha1.Cells(i, 2)
            Planilha4.Cells(lin, 3) = Planilha1.Cells(i, 3)
            Planilha4.Cells(lin, 4) = Planilha1.Cells(i, 4)
            Planilha4.Cells(lin, 5) = Planilha1.Cells(i, 5)
            Planilha4.Cells(lin, 6) = Planilha1.Cells(i, 6)
            lin = lin + 1
        End If
    Next
End Sub

Grato,

Mario Augusto de Oliveira
MMAOB