Copying Sheets Within Worksheet

[austinandrei]

Hi,
I have a set of data in Sheet1 which will determine the number of times Sheet2 will be copied.
Example in Sheet1:
[TABLE="width: 238"]
<colgroup><col><col></colgroup><tbody>[TR]
[TD]Set[/TD]
[TD]Data[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]SanLorenzo Corp[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]SanLorenzo Corp[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]SanLorenzo Corp[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]SanLorenzo Corp[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]SanLorenzo Corp[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]SanLorenzo Corp[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]SanLorenzo Corp[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]SanLorenzo Corp[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]SanLorenzo Corp[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]SanLorenzo Corp[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]SanLorenzo Corp
[/TD]
[/TR]
</tbody>[/TABLE]
Sheet2 is a template which will then be copied by how many sets there are in Sheet1. For above example, it will be copied 3times as there are 3sets.
First set will be copied starting on Range A1 in Sheet2
Second set will be copied starting on Range A1 in Sheet2 (2)
Third set will b copied starting on RangeA1 in Sheet2 (3)
Thanks!

 

[austinandrei]

hi,
Have already found an answer using below code:

  ActiveWorkbook.Sheets("xxxx").Copy _
           After:=ActiveWorkbook.Sheets("xxxx")

Thanks.