How to paste formulas down to the end of a range using VBA

[Mr2017]

Hi Guys!

I'll provide a simple example of what I'd like to do:

I have some formulae in cells E1 and F1 and I'd like to copy and paste them to cell E2 to F2 AFTER data has been pasted in the preceding columns (A:D) until the end of the range of the data in columns A to D.

The data in columns A to D could go from row 2 to row 100, or from row 2 to row 1000.

Does anyone know how to do this, please?

I've pasted very simple formulae below, to save you time:

This formula should go in cell E1: =A1+B1

This formula should go in cell F1: ==C1+D1

Thanks in advance!

 

[Fluff]

Try

Sub Mr2017()
   Range("E2", Range("A" & Rows.Count).End(xlUp).Offset(, 5)).Filldown
End Sub

 

[DanteAmor]

Try this

Sub fill()
    Range("E1:F1").AutoFill Destination:=Range("E1:F" & Range("A" & Rows.Count).End(xlUp).Row)
End Sub

 

[Mr2017]

Hi Fluff

Thanks for the prompt response.

I tried that code, but nothing happened with my sheet?

I used the data below (which you can copy and paste into cell A1 - it then populates data from cell A1:D5). And I kept the formulae the same in cells E1 and F1 ie =A1+B1 in cell E1 and =C1+D1 in cell F1. However, the code in the post subsequently below, worked - so I've used that, in the meantime.

[TABLE="width: 384"]
<colgroup><col style="width:48pt" width="64" span="6"> </colgroup><tbody>[TR]
[TD="width: 64, align: right"]4[/TD]
[TD="width: 64, align: right"]6[/TD]
[TD="width: 64, align: right"]3[/TD]
[TD="width: 64, align: right"]2[/TD]
[TD="width: 64, align: right"]10[/TD]
[TD="width: 64, align: right"]5[/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]2[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]2[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]2[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]2[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[Mr2017]

Thanks Dante.

 

[Fluff]

Try changing the E2 in my code to E1

 

[DanteAmor]

Thanks Dante.

You're welcome & thanks for the feedback.

 

[Mr2017]

Ok, yes, it works as intended, now, Fluff.

Thanks for clarifying that.

 

[Mr2017]

No problem.

Thank you.

 

[Fluff]

Ok, yes, it works as intended, now, Fluff.

Thanks for clarifying that.

You're welcome & thanks for the feedback