Putting formulas into vba

Hello, I have the current (below formulas) and I need to put them in VBA filling them down to the last cell.

(M3) =IFERROR(AGGREGATE(15,6,Data!I$2:I$101/(Data!E$2:E$101>=A3)/(Data!G$2:G$101<=A4)/ISNUMBER(MATCH(Data!$K$2:$K$101,Notes!$S$2:$S$9,)),1),"-")
(N3) =IFERROR(AGGREGATE(14,6,Data!I$2:I$101/(Data!E$2:E$101>=A3)/(Data!G$2:G$101<=A4)/ISNUMBER(MATCH(Data!$K$2:$K$101,Notes!$S$2:$S$9,)),1), "-")
(O3) = IFERROR(SUMPRODUCT(Data!I$2:I$101,(Data!E$2:E$101>A3)*(Data!G$2:G$101<=A4)*ISNUMBER(MATCH(Data!$K$2:$K$101,Notes!$S$2:$S$9,)))/F3, "-")
(P3) = IFERROR(SUMPRODUCT(Data!J$2:J$101,(Data!E$2:E$101>A3)*(Data!G$2:G$101<=A4)*ISNUMBER(MATCH(Data!$K$2:$K$101,Notes!$S$2:$S$9,)))/F3, "-")
(Q3) = IFERROR(SUMPRODUCT((Data!E$2:E$101>A3)*(Data!G$2:G$101<=A4)*ISNUMBER(MATCH(Data!$K$2:$K$101,Notes!$S$2:$S$9,))),"-")
(R3) =  IFERROR(N3-M3,"-")

How would I put the ABOVE formulas into code


then for fill down,
I was thinking of using

    Range("M3", "M" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown

or
should i use:

 lastRow = ActiveSheet.UsedRange.Rows.Count
Range("M3").Select
Selection.AutoFill Destination:=Range("M3:M" & lastRow)