每天抓數據研究，遇到一個問題，搜尋與試了幾天，都無法解決
有兩個問題

問題一
兩個檔案：
月資料：2210個股.xlsm，固定名稱的幾個工作表
日資料：當日個股.xlsx，每天不固定的幾個工作表

想要運作：從日資料複製到月資料「同名稱的工作表」

Sub 當日數據()
Workbooks.Open Filename:="C:\輸出目錄\當日個股.xlsx"
Windows("當日個股.xlsx").Activate
Dim i As Integer
For i = 1 To Worksheets.Count
    Sheets(i).Activate
        Range("A1").Select
        ActiveCell.Offset(1, 0).Range("A1").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.Copy
        Windows("2210個股.xlsm").Activate
    Sheets(i).Activate
    '就是上面這行完全沒作用
        Range("A1").Select
        Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Range("A1").Select
        ActiveSheet.Paste
        Windows("當日個股.xlsx").Activate
Next i
End Sub

問題二
由於沒辦法選取所有工作表，一起開篩選功能
想要每個工作表都開啟篩選，只能逐一套用篩選

試了這兩個寫法都失敗

Sub Filter()
Dim i As Integer
For i = 1 To Worksheets.Count
    Worksheets(i).Activate
    If ActiveSheet.AutoFilterMode = False Then
        ActiveSheet.AutoFilterMode = True
    End If
    '把IF三列拿掉換成
    'Columns("P:Q").Select
    'Selection.AutoFilter
    '也是失敗
Next i
End Sub

想請大神幫幫忙指導一下，謝謝