Excel で行を指定回数だけコピーしたい

>VBAやマクロが使えるといいのですが。 VBAでやれば簡単なロジックで出来るが、VBAの経験はあるのかな。 （A)E列に繰り返し数があると仮定している。 （B)２００３までなら、データ数は６５５３６行以内と仮定になる。 （E列の繰り返し数の合計が） 標準モジュールに Sub test01() Dim sh1 As Worksheet Dim sh2 As Worksheet Set sh1 = Worksheets("sheet1") Set sh2 = Worksheets("sheet2") d = sh1.Range("A65536").End(xlUp).Row MsgBox d k = 1 For i = 1 To d For j = 1 To sh1.Cells(i, "E") sh1.Range(sh1.Cells(i, "A"), sh1.Cells(i, "E")).C