copy & past text every30th Row into new sheet

[bburden752]

The below code I found in this forum works almost perfect for what I am looking for. I have 3 columns Dates, Times, Values. it is about 8600 rows. I need these rows by every 30th rows. This code work for me but when it get to the last row it keeps going. I need it to stop and the first blank line it sees after its counted all the lines.

Please help, and thanks for helping me.

The Code:
---------------------------------------

Sub copyNthRow()

Dim j As Long
Dim i As Long
Dim NthRow As Integer
NthRow = 30
j = Cells.SpecialCells(xlLastCell).Row
Range("A1").Select
Do Until ActiveCell.Row > j
Rows(ActiveCell.Row).Copy
Sheets("Sheet2").Range("A1").Offset(i, 0).PasteSpecial (xlValues)
i = i + 1
ActiveCell.Offset(NthRow, 0).Select

Loop
End Sub

 

[bburden752]

I have solved this issure.