Boa tarde!!
Eu não entendi, fiz EXATAMENTE como você pediu!!!

Boa tarde

Meu digníssimo AlexVba, aceite minhas desculpas por omitir outra informação , os filtrados vão para a plan2 e não plan1 como informado. Com relação a formatação, são copiados apenas os números sem nenhum tipo de formatação, ou seja sem os xis, bordas e cabeçalho.

Grato

Experimente>

Sub teste()
Dim lRow As Long, x As Integer
x = 2
With Sheets("Sheet1")
    
For lRow = 6 To .Range("H" & Rows.Count).End(xlUp).Row
    If .Cells(lRow, 8) = "X" Then
        Sheets("Sheet2").Cells(x, 1) = .Cells(lRow, 9)
        Sheets("Sheet2").Cells(x, 2) = .Cells(lRow, 10)
        Sheets("Sheet2").Cells(x, 3) = .Cells(lRow, 11)
        x = x + 1
    End If
Next
End With
End Sub

Boa noite

Respondendo primeiro ao caro AlexandreVba, está correto quando informo que somente os valores precisam ser filtrados e copiados para plan2. A formatação em plan2 tem características diferentes em relação a origem dos filtrados (plan1) por isso o pedido de somente os valores. Muito grato pela ajuda .
Em relação ao código do Reinaldo, quero informar que os "x" são parâmetros que não são fixos, logo o código precisa "entender" que os xis podem estar em qualquer posição e em quantidades distintas.

Grato

No codigo disponibilizado, não há distinção entre a existencia de um unico "X" ou de varios, independentemente de sua posição na coluna "H", a unica exigencia:
que seja sempre identificado apenas com "X", e estes em maiusculo;
que estejam na coluna "H",
e à partir da linha 6 (se iniciarem antes o For lRow= 6 deve ser revisto) .
Teste qq divergencia retorne.

Boa noite!

Use o Gravador de Macros, veja como ficou..
http://www.sendspace.com/file/h5sxd7

Att

Boa noite

Pessoal vou desistir desse código, tá cada vez mais confuso, nessa ultima versão apareceu uma terceira plan, e não sei qual a função dela.

Gratos ao AlexandreVba e Reinaldo