試了又試解決不了，誠請大大們幫幫忙

小妹在xlsm檔的a1~a6工作表放了不同的陣列公式運算，只有格式跟位置相同，
寫了VBA，想讓數百個不同列數的xls資料，套到這個檔案後轉出，
前後都順利跑好了，就中間這段，資料有順利貼上到每個工作表，
但陣列公式無法在每個工作表順利向下填充..........

Sub aa()
    Workbooks(3).Activate '當前運作xlsm檔
    Sheets(Array("a1", "a2", "a3", "a4", "a5", "a6")).Select '選擇所有工作表
    Sheets("a4").Activate '到其一工作表
    Range("A2").Select '選擇資料要貼上的首格
    ActiveSheet.Paste '資料貼上
    Application.CutCopyMode = False '釋放剪貼簿
    Dim lr As Long 
    lr = Cells(Rows.Count, "E").End(xlUp).Row 
    Range("F25:R25").AutoFill Destination:=Range("F25:R" & lr), Type:=xlFillCopy '向下填充到資料最後一列
    '到這邊，a1~a6有順利貼到同樣的一筆1000列的資料，但只有a4工作表公式有向下填充
    
    '如果加入以下部分，公式有順利填充，但會把其他工作表的公式取代掉.......
    ActiveCell.Range("F25:R" & lr).Select '選擇a4裡填充好的部分
    ActiveWindow.SelectedSheets.FillAcrossSheets Range:=Selection, Type:=xlAll '填充到其他工作表
End Sub

不知道該怎麼辦，拜過GOOGLE大神實在解決不了