Autofill Macro Error

[ruci1225]

I am creating a macro to perform a min function and am trying to autofill the formula to the end of the row where there is data populated.
The issue is that the number of rows will change daily when new data is imported in.

Currently, I am recieving the following error.

Run-Time Error 1004
Autofill Method of Range Class Failed

Selection.FormulaArray = _
"=MIN(IF('I3'!R1C10:R60000C10=RC[-2],IF('I3'!R1C11:R60000C11>=RC[-1],'I3'!R1C11:R60000C11)))"
Selection.AutoFill Destination:=Range("$AT$1:$AT$6799")

The last line is highlighted.

 

[teachmehow2macro]

I am guessing you want to fill the formula in used range in column AT ?

 

[ruci1225]

correct, since the rows will vary from day to day, I can not definre the area.

 

[teachmehow2macro]

This works.

Range("AT1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormulaArray = _
"=MIN(IF('I3'!R1C10:R60000C10=RC[-2],IF('I3'!R1C11:R60000C11>=RC[-1],'I3'!R1C11:R60000C11)))"

 

[ruci1225]

When I do this, my results are always 0 for every row as it takes the exact formula and pastes it. It has Ar2 and As2 for every row when I highlight any cell to view the formula. It should change depending on the row as there are no $.

I appreciate yuor help

 

[teachmehow2macro]

Sorry my bad,

This will work better.

Sub autOfiLLformula()

Dim LastRow As Long
LastRow = Cells(Rows.Count, "At").End(xlUp).Row

'you can change "at" above to another column if you want to reference the used range of that column"

Range("at1").Formula = "=MIN(IF('I3'!R1C10:R60000C10=RC[-2],IF('I3'!R1C11:R60000C11>=RC[-1],'I3'!R1C11:R60000C11)))"

Range("AT1").AutoFill Destination:=Range("AT1:AT" & LastRow)

End Sub