Simplify macro [VBA]

[Martin_H]

Hi,

I am trying to simplify my macro but no luck so far.

Would it be possible to fit this code (see below) - somehow - into one line?

Range("AL2:AL" & LastRowColumnA).Formula = "=GETCOMMENTS(RC[-25])"
Range("AM2:AM" & LastRowColumnA).Formula = "=GETCOMMENTS(RC[-25])"
Range("AN2:AN" & LastRowColumnA).Formula = "=GETCOMMENTS(RC[-25])"
Range("AO2:AO" & LastRowColumnA).Formula = "=GETCOMMENTS(RC[-25])"
Range("AP2:AP" & LastRowColumnA).Formula = "=GETCOMMENTS(RC[-25])"
Range("AQ2:AQ" & LastRowColumnA).Formula = "=GETCOMMENTS(RC[-25])"
Range("AR2:AR" & LastRowColumnA).Formula = "=GETCOMMENTS(RC[-25])"
Range("AS2:AS" & LastRowColumnA).Formula = "=GETCOMMENTS(RC[-25])"
Range("AT2:AT" & LastRowColumnA).Formula = "=GETCOMMENTS(RC[-25])"
Range("AU2:AU" & LastRowColumnA).Formula = "=GETCOMMENTS(RC[-25])"
Range("AV2:AV" & LastRowColumnA).Formula = "=GETCOMMENTS(RC[-25])"
Range("AW2:AW" & LastRowColumnA).Formula = "=GETCOMMENTS(RC[-25])"
Range("AX2:AX" & LastRowColumnA).Formula = "=GETCOMMENTS(RC[-25])"

Thank you.

 

[mikelowski]

A loop maybe? You are only changing columns.

 

[Fluff]

How about

Range("AL2:AX" & LastRowColumnA).FormulaR1C1 = "=GETCOMMENTS(RC[-25])"

 

[Martin_H]

How about

Range("AL2:AX" & LastRowColumnA).FormulaR1C1 = "=GETCOMMENTS(RC[-25])"

Awesome Fluff, thank you for your help.

 

[Fluff]

You're welcome & thanks for the feedback.