Eu estou com um problema, eu preciso extrair uma listagem de dados do excel que eu filtrei com mais de 200 mil linhas, eu tenho a opção de fazer o excel analisar cada linha e deletar ela mas eu queria fazer isso sem perder os dado já presentes então eu pesquisei e achei um meio de só copiar o que é visível(que deixou ativo no filtro) mas com isso quando vou salvar a macro aquilo que só pesava 10mb ta pesando 16mb e o excel fica engasgando, isso não é interessante pois eu preciso enviar por email, se eu copiar manualmente o filtro e colar ele resolve mas eu preciso de agilidade. Alguém saberia o que tem de errado nesse código?
Sub extrair()
''''''''' limpa a planilha que vai receber a lista ''''''
Sheets("Base").Select
Cells.Select
Range("A1").Activate
Selection.ClearContents
Range("A1").Select
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''' insere o filtro CE na coluna de estados '''''
Sheets("INF").Select
If Not ActiveSheet.AutoFilterMode Then
ActiveSheet.Range("A1").AutoFilter
End If
ActiveSheet.Range("$A$1:$CB$1048575").AutoFilter Field:=68, Criteria1:="CE"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''' seleção do filtro o que deve ser copiado ''''''''''''''''''''''
fimr = 1048576
contR = 1
contC = 1
Do While Cells(fimr, 68).Value <> "CE"
fimr = fimr - 1
Loop
contR = 1048576 - fimr
valor = Cells(1, contC).Value
Do While valor <> ""
contC = contC + 1
valor = Cells(1, contC).Value
Loop
Range(Cells(1, 1), Cells(contR, contC)).Select
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''' copia só o que está visível e cola na planilha Base''''''''''''
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Base").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''' retorna ao local do botão da macro ''''''''''
Application.CutCopyMode = False
Sheets("Macro").Select
End Sub