Copy Cells down to Specific Row

[shinobi]

Hi

I have a row of 3 cells with different formulas in them. I'd like to select that row of cells and then copy down to a specific row (defined by the last row of information in a table to the left).

So, for example, I have a table with hard coded data in it from cells A1 to C10. To the right of this, I have three cells that reference that data (D1 to F1). I'd like to copy D1:F1 down to row 10. The original table may change in size, so I can't hard code row 10 as the end point for copying - this needs to be variable.

Can anyone help me do this in my macro using VBA?

Thanks!

 

[Joe4]

See if this does what you want:

Sub MyCopy()

    Dim lr As Long
    
'   Find last row in column A with data
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Copy formulas from D1:F1 down to last row
    Range("D1:F1").Copy Range("D2:D" & lr)
    
End Sub

 

[shinobi]

Works perfectly - very elegant solution! Thanks

 

[Joe4]

You are welcome.

Hope it makes sense.
Let me know if you have any questions about it.