AutoFill with dynamic destination

Hi,

I'm really stuck, tried various things, and none worked.

I have a data table that I add data to it constantly and automaticly with a diffrent Macro

the data I add is on columns A to P, and on columns Q to V there are formulas.

I need the Macro to AutoFill the formulas in columns Q to V to the rows added..

Among many things, I tried this:

dim lastrow as Long

lastrow = Range("A" & Cells.Rows.Count).End(xlUp).Row

Range("Q" & Cells.Rows.Count).End(xlUp).Select
Selection.AutoFill destination = Range("Q" & lastrow)

but it doesnt work..
Any ideas? I really need this to work...

Thank you!

Can u explain some more, how to ise attachments? I'm not farmiliar with that option

Ok, A small breakthrough.

I have better understandment of what I need.

And I'm attachimg an example sheet I made for others to work with (I didn't add the original one because it is very complex and messy and is in Hebrew)

this code works fine:

Sub exampleofwhatineed()

Dim lastrow As Long
lastrow = Range("C" & Cells.Rows.Count).End(xlUp).Row
Dim LastRowOfDest As Long
LastRowOfDest = Range("A" & Cells.Rows.Count).End(xlUp).Row


Range("C" & lastrow).Select
Selection.AutoFill Destination:=Range("C2:C" & LastRowOfDest)


End Sub

but, it only works if the destnation range is as written above, given that "C2" is the selected range which I wish to AutoFill.
To My Table I'm always adding new rows so each time the selected range will be on a different row (Range("C" & lastrow).Select)

So, I'm trying to find a way to set not only the selected range but also the destination range accroding to the value of lastrow.

I tried these, non worked:

Range("C" & lastrow).Select
Selection.AutoFill Destination:=Range("C" & lastrow & "C" & LastRowOfDest)

Range("C" & lastrow).Select
Selection.AutoFill Destination:=Range("C" & lastrow & "C" & LastRowOfDest)

Range("C" & lastrow).Select
Selection.AutoFill Destination:=Range("C" & lastrow, "C" & LastRowOfDest)

Range("C" & lastrow).Select
Selection.AutoFill Destination:=Range("C" & lastrow & LastRowOfDest)

Range("C" & lastrow).Select
Selection.AutoFill Destination:=Range("C" & lastrow, LastRowOfDest)

ext..

So I fell like I'm close but not ther yet...

Please help! Thamks a lot

Originally Posted by davesexcel

You can edit your posts and add code tags to the VBA code.

See Picture

Attachment 548855

Thanks, I will from now on.. Do you have some suggestions about how to write the autofill destination correctly?