Не удается получить автозаполнение для перетаскивания до последней строки

Question

В рабочей книге, над которой я работаю, 16 рабочих листов. Начиная с Sheet2 (Report1), прежде чем я пропущу его через другие листы.

Когда я открываю книгу, она открывается на листе 1 (TO C), и я пытаюсь запустить макрос отсюда.

На листе 2 строки 1-3 являются данными заголовка.

-Я ввел формулу в F4, но не могу получить формулу Автозаполнение в столбце F до последняя строка на основе данных, основанных на столбце A. (В столбце F могут быть пустые ячейки)

-Тогда я хотел бы взять формулу из F4, скопировать / вставить в K4 и автозаполнить столбец K как хорошо.

(Теперь, если я на самом деле в Worksheet2, это работает?) Нужно ли переходить на каждый активный лист, чтобы заставить его работать?

Это то, что я В настоящее время есть:

Sub Test()

'Turn Off Screen Updates
Application.ScreenUpdating = False
Application.DisplayAlerts = False

    Dim ws As Worksheet
    Set ws = Worksheets("Report1")

'Update $ - % Chg formula
    ws.Range("F4").Formula = "=(E4/(E4-G4))-1"
    ws.Range("F4").NumberFormat = "0.0%"
    Range("F4").AutoFill Destination:=Range("F4:F" & Range("A" & Rows.Count).End(xlUp).Row)

'Update Units - % Chg Formula
    ws.Range("F4").Copy Range("K4")
    Range("K4").AutoFill Destination:=Range("K4:K" & Range("A" & Rows.Count).End(xlUp).Row)

'Turn On Screen Updates
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub