Making Autofill Dynamic

Currently I have a piece of code which copies a Formula down and this code reads:

Please Login or Register  to view this content.

But I wish to make it dynamic as sometimes it won't be 6,000 lines. So I amended the code to as follows but sadly this doesen't work:

Please Login or Register  to view this content.

Anyone reckon they know what I'm doing wrong?

Do not use Selection but according to AutoFill VBA help just the source range …

Hi Steve1977.
Let's imagine that from cell D3 downwards all those cells are empty.
If so, then an expression like:

Please Login or Register  to view this content.

It will ALWAYS return the same row: 2.

That's why you have to look for the last row of some column that is fully occupied: let's imagine that column is C.
Then:

Please Login or Register  to view this content.

And this will return the last row and your attempt won't fail anymore.

It must be a contagious problem because we all think the same... At first! Ha ha ha

Originally Posted by beyond Excel

Hi Steve1977.
Let's imagine that from cell D3 downwards all those cells are empty.
If so, then an expression like:

Please Login or Register  to view this content.

It will ALWAYS return the same row: 2.

That's why you have to look for the last row of some column that is fully occupied: let's imagine that column is C.
Then:

Please Login or Register  to view this content.

And this will return the last row and your attempt won't fail anymore.

Would this be needed to be done in conjunction with AutoFill?

I have added the code provided by TMS and it enters the Formula on the first two rows but nothing more. So it is working, kinda. But need it to enter in all lines where there is information if possible.

Thank you for the help provided so far

Auto Adjust.xlsm

Been having a further test around with this whereby it puts the Formula in cell C1 and I want to them copy this and paste it dynamically down, so my code now looks like this:

Please Login or Register  to view this content.

But it doesen't seem to copy the formula down :/

Here's the updated example Auto Adjust2.xlsm

It seems obvious that you have not read anything suggested. So we will have to do everything.
For example:

PHP Code: 

Sub AutoAdjustTest2()
Range("C1:C" & Cells(Rows.Count, "A").End(xlUp).Row) = "= A1 + B1"
End Sub 


Originally Posted by beyond Excel

It seems obvious that you have not read anything suggested. So we will have to do everything.
For example:

PHP Code: 

Sub AutoAdjustTest2()
Range("C1:C" & Cells(Rows.Count, "A").End(xlUp).Row) = "= A1 + B1"
End Sub 


Not at all, everyone has been fantastic. You've unlocked my brain a little - see post 8. After this I decided to overhaul it rather than waiting for a reply and relying on people to do it all for me.
But then ran it other problems
Will take a look at what you suggest - once again, thank you for your response

you beauty Beyond Excel! Thank you for the final piece of the jigsaw, it now works

Please Login or Register  to view this content.

Thanks Steve. Thank you TMS.