Copy and Paste Multiple Times

[djb14128]

I just want to know why I am the Visual Basic Applications (VBA) script isn't working as it should be. I am trying to copy and paste multiple tables, depending on the value I put into cell E1. I've used this code here:

Sub CopyMulti()
Range("A3:D19").Copy Range("E15").Resize(14 * Range("E1").Value)
End Sub

Many thanks.

 

[Fluff]

Hi & welcome to MrExcel.
It should be

Range("A3:D19").Copy Range("E15").Resize([COLOR=#ff0000]17[/COLOR] * Range("E1").Value)

 

[djb14128]

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O
1					5
2								Button 1
3
4		Apples	Bananas	Oranges
5		2	=B5+10	=C5*B5
6		4	=B6+20	=C6*B6
7		6	=B7+30	=C7*B7
8		8	=B8+40	=C8*B8
9		10	=B9+50	=C9*B9
10		12	=B10+60	=C10*B10
11		14	=B11+70	=C11*B11
12		16	=B12+80	=C12*B12
13		18	=B13+90	=C13*B13
14		20	=B14+100	=C14*B14
15		22	=B15+110	=C15*B15
16		24	=B16+120	=C16*B16		Apples	Bananas	Oranges
17						2	12	24
18						4	24	96
19						6	36	216
20						8	48	384
21						10	60	600
22						12	72	864
23						14	84	1176
24						16	96	1536
25						18	108	1944
26						20	120	2400
27						22	132	2904
28						24	144	3456
29
30

<tbody>
</tbody>

This is what the excel spreadsheet looks like.

 

[djb14128]

What does the 17 mean? Many thanks.

 

[djb14128]

Why does it not work for longer/more complex excel spreadsheet? Many thanks.

 

[Fluff]

In future please do not make the same post multiple times. Note that sometimes posts from new users require Moderator approval before you can see them on the public forums. When this happens, you should see a message to that effect when you try to post it. Please be patient and do not attempt to post the question again.

What does the 17 mean? Many thanks.

It is the number of rows that you are originally copying.

Why does it not work for longer/more complex excel spreadsheet? Many thanks.

It would help if you explain what you are trying to do.