What am I Doing Wrong??

[CVBASIMON]

So I am trying to find the end of a column and input an if statment withing those 70 something cells. Below is my script any ideas??

FinalRow = Cells(Rows.Count, 2).End(xlUp).Row
Range("A2" & FinalRow).Formula = "=if(F2="","", Today())"
Range("A2").Copy Destination:=Range("A2" & FinalRow)

 

[CVBASIMON]

minor rewrite of your code, several modifications made

should answer both of your questions

FinalRow = Cells(Rows.Count, "c").End(xlUp).Row
Range("A2:A" & FinalRow).Formula = "=if(C2="""", """", today())"
Range("A2").Copy Destination:=Range("A2:A" & FinalRow)

Awesome! Thank you everyone for your help on this! The modification I had been missing was the "C" in count. Thank you for all the help.

 

[mirabeau]

Thanks for the feedback. That's always appreciated.

Glad you got it all sorted.