leaving 3 blank rows and pasting values repeatidly

Hey Guys!

I have a range that is 13 rows high, that i want to paste at row 30 then next time i run the macro will leave 3 blank rows then paste again so at row 46, and continue down the spreadsheet as many times i run the macro leaving 3 blank rows between each pasting..

How can i accomplish this?

Or even if i simply paste hte first one on row 30 and then have the macro find the last blank row (43) and then go down 3 rows and paste that way it will be on a loop whenever i run the macro it will always be 3 down from last.. i can find last blank row just not sure how to +3 to row count each time.

do i simply adjust the offset in this code, Sheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

Hi,

I would use Offset :

Sheet.Cells(Rows.Count, 1).End(xlUp).Offset(4, 0).PasteSpecial xlPasteValues

Let say you last pasted your data in row 30. The last row with data will be row 42. You need to find this last row and offset 4 rows to paste in row 46.