Как правильно выполнить автозаполнение только до последнего ряда?

Question

Кто-нибудь, кто мог бы посоветовать мне, как автоматически заполнить (до последней строки) формулу, созданную на этом сценарии VBA?Ниже мой текущий скрипт VBA, и я застрял с автозаполнением;

Dim ClaimedAmount As Range 'Find the column for CLAIMED AMOUNT
Set ClaimedAmount = Sheets(3).Range("A1:CM1").Find("CLAIMED AMOUNT")
If ClaimedAmount Is Nothing Then
    MsgBox "ClaimedAmount column was not found in Raw Data sheet."
    Exit Sub
End If

Dim PROV_NET As Range 'Find the column for ROV NET
Set PROV_NET = Sheets(3).Range("A1:CM1").Find("PROV NET")
If PROV_NET Is Nothing Then
    MsgBox "PROV NET column was not found."
    Exit Sub
End If

ClaimedAmount.EntireColumn.Insert 'Insert new column Left of Claimed Amount
PROV_NET.EntireColumn.Insert 'Insert new column Left of Prpoviders Net Amount

'Create header
ClaimedAmount(1, 0).Value = "CLAIMED AMOUNT QAR"
PROV_NET(1, 0).Value = "EXCHANGE RATE"

'Formula
PROV_NET(2, 0).Value = "=RC[16]/RC[-1]"
ClaimedAmount(2, 0).Value = "=RC[1]*RC[9]"

'Autofill the formulas