Thread: Applying a formula to a column

I am new to macro and will like to know how to apply a formula to an entire column and wat is its code.
I want to apply formula to column AR and it goes,
=sumif(I:I,I2,N:N)
the formula has to start from 2nd row coz first ow wld contain a heading.
how shld i apply it.
any help would be appreciated
Thanks in advance
REGARDS,
VIPUL

Hi Vipul,

Try this:

Sub Macro1()

    Dim lngLastRowColI As Long, _
        lngLastRowColN As Long
        
    lngLastRowColI = ActiveSheet.Cells(Rows.Count, "I").End(xlUp).Row
    lngLastRowColN = ActiveSheet.Cells(Rows.Count, "N").End(xlUp).Row
    
    If lngLastRowColI >= lngLastRowColN Then
        ActiveSheet.Range("AR2:AR" & lngLastRowColI).Formula = _
            "=SUMIF($I$2:$I$" & lngLastRowColI & ",I2,$N$2:$N$" & lngLastRowColI & ")"
    Else
        ActiveSheet.Range("AR2:AR" & lngLastRowColN).Formula = _
            "=SUMIF($I$2:$I$" & lngLastRowColN & ",I2,$N$2:$N$" & lngLastRowColN & ")"
    End If

End Sub

Regards,

Robert