VBA copy and paste rows and columns based on variable

[jocker_boy]

Hello,
If i have this table:

		M1	M2	Total
Title1	Description
X	aaaa	xxx	xxx	xxxx
X	aaaa	xxx	xxx	xxxx
X	aaa	xxx	xxx	xxxx
Title1
X	bbb	xxx	xxx	xxxx
X	bbb	xxx	xxx	xxxx
X	bbb	xxx	xxx	xxxx

I would like to copy rows "x" times and also copy columns "y" times.

My goal is to ask to user:

• What is the first sheet: "Sheet3"
  • Will Replace "Title1" with "Sheet3" name
• How many repetitions is necessary: "x=3"
  • Will copy rows 3-6 and paste in rows belows. Number of times: x-1-> Rows 3-6 are fixed
  • Will copy rows 8-11 and past in rows belows. Number of times: x-1 ->Rows 8-11 are fixed
• How many months: "y=4"
  • Will copy column 4 and paste in columns. Number of times: y-2 ->Column 4 is fixed
• Insert "Sheet4" name and Insert "Sheet5" name.

		M1	M2	M3	M4	Total
"Sheet3"	Description
X	aaaa	xxx	xxx	xxx	xxx	xxxx
X	aaaa	xxx	xxx	xxx	xxx	xxxx
X	aaa	xxx	xxx	xxx	xxx	xxxx
"Sheet4"	Description
X	aaaa	xxx	xxx	xxx	xxx
X	aaaa	xxx	xxx	xxx	xxx
X	aaa	xxx	xxx	xxx	xxx
"Sheet5"	Description
X	aaaa	xxx	xxx	xxx	xxx	xxxx
X	aaaa	xxx	xxx	xxx	xxx	xxxx
X	aaa	xxx	xxx	xxx	xxx	xxxx
"Sheet3"	Description
X	bbb	xxx	xxx	xxx	xxx	xxxx
X	bbb	xxx	xxx	xxx	xxx	xxxx
X	bbb	xxx	xxx	xxx	xxx	xxxx
"Sheet4"	Description
X	bbb	xxx	xxx	xxx	xxx	xxxx
X	bbb	xxx	xxx	xxx	xxx	xxxx
X	bbb	xxx	xxx	xxx	xxx	xxxx
"Sheet5"	Description
X	bbb	xxx	xxx	xxx	xxx	xxxx
X	bbb	xxx	xxx	xxx	xxx	xxxx
X	bbb	xxx	xxx	xxx	xxx	xxxx

Thanks for the help.
Gonçalo

 

[jocker_boy]

Any help, please.

Gonçalo