'Drag formulas across to last column

I have a macro that currently inserts formulas in 5 different places within a spreadsheet. Due to the nature of the file these formulas will rarely be on the same rows each time it is run. Which is causing an issue when trying to autofill the formulas across to the last column which will always be R for each formula that is within the file. Thanks in advance for any helpenter image description here

Dim WB As Workbook
Dim REC As Worksheet
Dim Rng As Range

Set WB = ThisWorkbook
Set REC = WB.Sheets("Reconciliation")
Set Rng = REC.Range("V:V")

'Insert Formulas
REC.Cells(Rows.Count, "A").End(xlUp).Offset(2, 5).Formula = "=SUMIF($V:$V,""4"",F:F)"

REC.Cells(Rows.Count, "A").End(xlUp).End(xlUp).End(xlUp).Offset(2, 5).Formula = 
"=SUMIF($V:$V,""3"",F:F)"

REC.Cells(Rows.Count, "A").End(xlUp).End(xlUp).End(xlUp).End(xlUp).End(xlUp).Offset(2, 
5).Formula = "=SUMIF($V:$V,""2"",F:F)"

REC.Cells(Rows.Count, 
"A").End(xlUp).End(xlUp).End(xlUp).End(xlUp).End(xlUp).End(xlUp).End(xlUp).Offset(2, 
 5).Formula = "=SUMIF($V:$V,""1"",F:F)"

REC.Cells(Rows.Count, "A").End(xlUp).Offset(5, 5).Formula = "=SUMIF($V:$V,"""",F:F)"


Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source