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