Sub RowCopy()

Dim i As Integer

Dim o As Integer

Dim counter As Integer

i = 1

o = 3

While o < 65000 'RowCount

**Worksheets("Sheet1").Range("A" & i :"H" & o).Copy Destination:=Worksheets("Sheet5").Range("A"&i:"H"&o)**

i = i + 495

o = o + 496

End



End Sub