Inserting Formula and copying down to last row

[jrake40]

Hey Guys,

I am inserting the formula but having trouble getting it to copy down. I want it to copy down to the last row of column AA to account for variable data.

Sub Insert_QueryTitle_Formula()

Range("AA1").Formula = "=IF((LEN(TRIM(A1))-LEN(SUBSTITUTE(TRIM(A1),"""",""""))+1)>4,""Title"","""")"
Selection.AutoFill Destination:=Range("AA1:AA" & LastRow)


End Sub

 

[texasalynn]

you have to define LastRow
here is an example
LastRow = ActiveSheet.Range("AA" & Rows.Count).End(xlUp).Row

 

[MARK858]

. I want it to copy down to the last row of column AA to account for variable data.
[/CODE]

If you are stating that there is a filled cell in Column AA that is used to decide the last row (and I have serious doubts that this is the case, and if it is not the case then state what you are using to decide what the last row is), then you can just apply the formula to the range in one go (Excel is intelligent enough to increment the row increases as it goes down the column).

Please see the below...

Range("AA1:AA" & Range("AA" & Rows.count).End(xlUp).Row).Formula = "=IF((LEN(TRIM(A1))-LEN(SUBSTITUTE(TRIM(A1),"""",""""))+1)>4,""Title"","""")"