Autofill formula not working

[wonderd]

Hello I am using the below auto fill code but for some reason it is not filling the formula to the last cell.

Sheets("name2").Select        
Range("O1").Select
    ActiveCell.FormulaR1C1 = _
        "=RC[-14]&RC[-13]&RC[-12]&RC[-11]&RC[-10]&RC[-9]&RC[-8]&RC[-7]&RC[-6]&RC[-5]&RC[-4]&RC[-3]&RC[-2]&RC[-1]"
    Range("O1").Select
    Selection.AutoFill Destination:=Range("O1:O" & Range("A" & Rows.Count).End(xlUp).Row)

The code is suppose to auto fill the formula in column O down to the last cell of the sheet in accordance to the last cell in column A.

Column A has data but the formula doesn't want to go down.

 

[wonderd]

The code is on a module sheet actually if that answers your previous question

 

[wonderd]

Yeah, sorry...it's a work thing, nothing personal...
just a thought ....does Col "A" get populated before the formula code is run ?

Yes it does.

Also the file can be uploaded and scanned at https://www.virustotal.com

 

[Michael M]

I'll try and have a look at the file when I get home, if someone hasn't come up with any new ideas.

 

[wonderd]

Thanks, appreciate it. Would be a nice surprise to wake up with a solution lol.

As a reminder the section for the code is on module 2 line 276. But sheet name2 will not appear until you hit run on the simple tab then hit run on the grouped tab.

 

[Michael M]

This code appears on line 496 to remove duplicates from column "O" in the name2 sheet.....would that be the problem !!
Did you also notice that the formula does in fact go to the last row in "A", but somewhere in your code you are deleting the formula for about 2500 rows !

'remove duplicates from name2
    With Sheets("name2").Range("O1:O" & Cells(Rows.Count, "O").End(xlUp).Row)
    .RemoveDuplicates Columns:=1, Header:=xlNo
    End With

 

[Michael M]

More info...
The code snippet in the previous post is definitely the problem !!
The formulas are all there until it gets to those line of code and they delete the entries in Col "O", which I'm guessing are duplicates !

 

[wonderd]

Thank You! Really appreciate the help solving this problem. So the problem was actually with the remove duplicate code. I changed the code to

   Sheets("name2").Select
    Cells.RemoveDuplicates Columns:=15, Header:=xlNo

Even though I'm not sure why the previous code did not work but oh well.