xxxxxxxxxx
Sub ExtractVisibleCells()
Dim wsSource, wsExtract As Worksheet
Set wsSource = ThisWorkbook.Sheets("Source Data")
Set wsExtract = ThisWorkbook.Sheets("Filtered")
wsSource.Range("A1:A10").SpecialCells(xlCellTypeVisible).Copy
wsExtract.Cells(1, 1).PasteSpecial
End Sub
xxxxxxxxxx
Sub TransferValuesOnly()
Worksheets("Sheet1").Range("A1:Z100").Copy
'PasteSpecial Values Only
Worksheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues
'Clear Clipboard (removes "marching ants" around your original data set)
Application.CutCopyMode = False
End Sub