Apply formula to a certain column ( attempt made )

Hi ALL

So i am slowly learning to write macros.

I want column AJ to be automatically filled using the formula that appears in my code

Unfortunately, my code does not run

Option Explicit

Sub EmissionModule()
Dim LR As Long

Range("AJ2:AJ" & LR).Formula = "=I2*10000*(((((0.074*((S2+T2)/S2)^3)-(0.6406*((S2+T2)/S2)^2)+(2.6145*((S2+T2)/S2))-1.8879)*3600*2)*SQRT(298.15/(R2+273.15))*1.2943)+(((-87.297*(((C2*1.0593)-14.434)/3800)^3)+(309.6*(((C2*1.0593)-14.434)/3800)^2)-(311.63*(((C2*1.0593)-14.434)/3800))+303.7)*((C2*1.0593)-14.434)/1000000))*0.001517/((C2*1.0593)-14.434)"


End Sub

Anyone know what the issue is.

The formula works when i just put it in myself into the first cell.

DELETED this particular post myself because it s against rules

Actually I just notice its always column AJ.

So i want that formula to be applied to column AJ.

I have a bunch of columns with data.

I want this formuila to be applied when I no longer have data ( the first blank column ).

The formula:

=I2*10000*(((((0.074*((S2+T2)/S2)^3)-(0.6406*((S2+T2)/S2)^2)+(2.6145*((S2+T2)/S2))-1.8879)*3600*2)*SQRT(298.15/(R2+273.15))*1.2943)+(((-87.297*(((C2*1.0593)-14.434)/3800)^3)+(309.6*(((C2*1.0593)-14.434)/3800)^2)-(311.63*(((C2*1.0593)-14.434)/3800))+303.7)*((C2*1.0593)-14.434)/1000000))*0.001517/((C2*1.0593)-14.434)

would of course evolve so that I2 changes into I3 and so on for the other cells called

I don't want it to put anything in the first row, that will be my header row.