Sub CopyFormulaDownfar()
Dim LastPopulatedRow As Long
Worksheets("FAR All").Activate
'Find last populated row
LastPopulatedRow = Range("A" & Rows.Count).End(xlUp).Row
'Select the rows where formula is to be populated
Range("V2: " & "V" & LastPopulatedRow).FillDown
Range("W2: " & "W" & LastPopulatedRow).FillDown