Then:
Code:
With Sheets("Summary").Range("E22")
.FormulaArray = "=IFERROR(INDEX('1600 Daily'!G$3:G$300, SMALL(IF('1600 Daily'!$F$2:$F$300=1, ROW('1600 Daily'!$F$2:$F$300)-2),ROWS(G$2:G2))),"""")"
.AutoFill Destination:=.Range("E22", .Cells(.Range("M4").Value, "E")), Type:=xlFillDefault
End With
should work.