Copy 15 Visible Rows, Loop?

[Sunvisor]

Hi I've seen that I have to us SpecialCells(xlCellTypeVisible) for this problem but what I am trying to do is start at Row 1, and copy 15 VISIBLE rows down (I already have it filtered), paste it in another sheet, and then go back and copy the next 15 rows, going until blank or I can just set the value for a certain amount of rows...

Any help would be greatly appreciated

 

[texasalynn]

why not copy all the rows of data at one time instead just 15 rows at a time?

 

[Sunvisor]

Because I have to paste in a template that is seperated by something every 15th row...and actually its 33 rows I just realized.

 

[MrKowz]

This is untested, but try:

Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:A" & LR).SpecialCells(xlCellTypeVisible).Resize(15, 1).Copy

 

[Sunvisor]

I'm getting an error on the third line, not sure why?