Copy and paste first 48 visible cells

[jordanl]

Hi!
I have a set of data that I filter and then divide into groups of 48 using vba. What I'm having trouble with is selecting the first 48 visible cells. I've tried using offset, but that just seems to select 48 cells regardless of whether they are visible or not. ie. I start on cell A1 and want to select the first 48 visible cells. The filter has hidden cells so that Cells A1 - A42 are visible, cells A43-A1200 are hidden and cells A1201-A1211 are visible. I want to be able to select cells A1-A42 and A1201-A1211 as one selection. If I use ActiveCell.Offset(47, 0), it only selects the first 42 cells.
Any help is greatly appreciated!!!!

 

[mumps]

Try using

Range("A1:A1211").SpecialCells(xlCellTypeVisible).Select

 

[jordanl]

Thanks for the response mumps, but that was just an example range. This macro needs to work on any worksheet, so absolute references won't work. Additionally, it would be way to much work to find what cell turns out to be the 48th visible cell in a given filtered range everytime I run the macro.