自动筛选macros，然后复制可见数据并粘贴到下一个可用的行

所以我有一个macros，它可以根据date自动select自动筛选器中的值。

这很好。 不过，我需要它只复制数据的可见单元格，并将其粘贴到工作表中称为“引用”的NEXT可用行。

Sub Referral() Application.ScreenUpdating = False With Sheets("Raw") Sheets("Raw").ShowAllData Sheets("Raw").Range("A1:BK1").AutoFilter Field:=14, _ Criteria1:=Format(Sheets("Main").Range("E13").Value + 15, "mm/dd/yyyy") Sheets("Raw").Range("A1:BL50000").Copy End With End Sub 

Answer 1

 Sub Referral() Application.ScreenUpdating = False With Sheets("Raw") .ShowAllData .Range("A1:BK1").AutoFilter Field:=14, Criteria1:=Format(Sheets("Main").Range("E13").Value + 15, "mm/dd/yyyy") 'this is generic, you may need to adjust this based on your sheet and data needs Intersect(.UsedRange, .UsedRange.Offset(1)).SpecialCells(xlCellTypeVisible).Copy End With 'goes to cell below last used cell in column A Sheets("referral").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues Sheets("Raw").AutoFilterMode = False Application.ScreenUpdating = True 'don't forget to turn on your ScreenUpdating again! End Sub