I ae pessoal, blz ...
To montando uma planilha onde na linha 1 (A:S) tem o autofiltro, eu gostaria de selecionar informações que estão na coluna S (19), copiar e colar para outra planilha.
Alguem sabe como selecionar apenas os dados filtrados, ou seja, as células visíveis através de uma macro
Eu usei essa VBA, porem ela não funcionou muito bem, pois ela não selecionava todos os dados, só selecionava as 3 primeiras linhas ...

Sub Macro2()
'
' Macro2 Macro
'

'
ActiveSheet.Range("A:S").AutoFilter Field:=19, Criteria1:= _
"=Aguardando Movimentação", Operator:=xlOr, Criteria2:="=Em Aberto"
Sheets("Extrusão").Visible = True
Sheets("Extrusão").Select
Dim nLinIni As Integer, nLinhas As Long, rng As Range
'Define a linha inicial
nLinhas = 2
While Range("A" & nLinhas).Value <> ""
'Encontra a linha final preenchida
If Range("B" & nLinhas).Value <> "" Then
If rng Is Nothing Then
Set rng = Range("A" & nLinhas, "S" & nLinhas)
Else
Set rng = Union(rng, Range("A" & nLinhas, "S" & nLinhas))
End If
End If
nLinhas = nLinhas + 1
Wend
'Seleciona o intervalo
rng.Select
Selection.Copy
Sheets("Programação").Select
Application.Goto Reference:="R3C1"
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
ActiveSheet.Range("A:S").AutoFilter Field:=19
Range("A3").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
Sheets("Extrusão").Select

End Sub