With Range and AutoFill Question

[nirvehex]

Hi, I have a simple with formula but it's not copying down correctly.

Sheets("WOs (DSP Only)").Select
With Worksheets("WOs (DSP Only)")


    With .Range("A2:A" & Lastrow)
    .Formula = "=L2&""-""&K2&""-""&Z2&""-""&X2"
    End With
    
    With .Range("B2:B" & Lastrow)
    .FormulaArray = "=PERCENTILE.INC(IF($A$2:$A$" & Lastrow & "=A2,$AF$2:$AF$" & Lastrow & "),.5)"
    End With
    
    
End With

A2 in the the .FormulaArray is supposed to continually progress as it's copied downward. It should go to A3, then A4, then A5, and so on. But it stays locked at A2.

Could anyone help with that please?

Thanks!

 

[Norie]

Have you tried using Autofill?

    With Worksheets("WOs (DSP Only)")

        With .Range("A2:A" & lastrow)
            .Formula = "=L2&""-""&K2&""-""&Z2&""-""&X2"
        End With

        With .Range("B2")
            .FormulaArray = "=PERCENTILE.INC(IF($A$2:$A$" & lastrow & "=A2,$AF$2:$AF$" & lastrow & "),.5)"
            .AutoFill Destination:=Range("B2:B" & lastrow), Type:=xlFillDefault
        End With

    End With

 

[nirvehex]

That worked! Thanks Norie!