Hello everybody.
I've filtered some records on the original workbook and I've pasted them in a new workbook.
If .SpecialCells(xlCellTypeVisible).Count > 2 Then
.Offset(1, 0).Resize(lr - 1).SpecialCells(xlCellTypeVisible).EntireRow.Copy new.Sheets(1).Range("A2")
End...