Olá amigo,
Cola esse código no módulo e cria um botão e atribui a macro.

Sub copiarDadosEntrePlanilhas()

    Plan2.Range("A2:D10").ClearContents
    UltimaLinha = Plan1.Cells(Rows.Count, "A").End(xlUp).Row
    linha = 2
    
    For i = 2 To UltimaLinha
        If Plan1.Cells(i, 2) = "Ganha" Then
            Plan2.Cells(linha, 1) = Plan1.Cells(i, 1)
            Plan2.Cells(linha, 2) = Plan1.Cells(i, 2)
            Plan2.Cells(linha, 3) = Plan1.Cells(i, 3)
            Plan2.Cells(linha, 4) = Plan1.Cells(i, 4)
                                  
        linha = linha + 1
             
          End If
       Next
End Sub

Ve se é ajuda

Boa tarde MPrudencio!

Funciona bem a planilha que vc enviou, mas se for preciso incluir novas colunas na planilha base, como posso fazer? A mesma pergunta para a planilha de resultados filtrados, é possível colocar o botão acima e adicionar novas colunas ou isso vai causar problemas?

Outra questão posso Copiar a Planilha filtrada para outras pastas do Excel e ela continuará funcionando?

Eu fiz com base em seu exemplo se sua planilha original for diferente precisa ajustar o codigo.

Se for para criar um novo arquivo precisa mexer no codigo ...

Neste caso poste novo arquivo com a planilha exatamente como deve ser.