Macro VBA para copiar planilha para um novo arquivo, escolher linhas

[lunares]

Pessoal desde já agradeço sua atenção, espero que possam me ajudar

 

Possuo uma planilha na qual eu preciso copiar parte dela para um novo arquivo, até ai tudo bem, eu consegui fechar, porém eu preciso que copie apenas as linhas que contenham preenchimento em determinada coluna.

 

Para facilitar eu fiz uma formula "se" em uma coluna que ficara oculta e no caso das que contenham x preciso que sejam selecionadas para serem copiadas.

 

O código que fiz e deu "certo" é esse abaixo, porém ou consegui copiar apenas todas as linhas da range ou as linhas visíveis (linha código desativado), não tenho ideia de como conseguir fechar dessa forma que preciso.

Sub Versão_Cliente()

MsgBox "A VERSÃO 'CLIENTE' IRÁ ABRIR EM UM NOVO EXCEL"

    Range("A1:J138").Select
    'Selection.SpecialCells(xlCellTypeVisible).Select' (DESATIVADO - Seleção apenas visíveis)
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=3
    'Windows("Orçamento - Tupiniquim - REV9-Final.xlsm").Activate' (DESATIVADO - Retornar para essa janela)
    
End Sub