If visible cells are empty, then skip to the next procedure?

Hello Excel Wizards

I am needing help on two things.

First:
The below code is working to essentially copy data that would exist from filters to a new worksheet, and then save that worksheet. It may be clunky... but it works.
Right now, if there is no data that appears in the filtered range, a workbook is created with just the header row. (So there are 4 files created for each value in Frandata.range("A" & Y) - but in some cases there may only need to be 1 file created.)
What I am wanting to do, though, is make it so that if the filtered range does not show data, that it just moves on to the next set of data to filter.


Secondly:
Other than attaching a variable to the "ardata.Range(Cells(1, 1), Cells(arlrow, arlcol + 5))" range... is there anything else that I could do to optimize this part of the code?

Please Login or Register  to view this content.

Well folks... nevermind I think i figured out my own answer.

Just in case anybody else is looking for how to do this, I added in a

If / Then for

If ardata.Range(Cells(1, 2), Cells(arlrow, 8)).SpecialCells(xlCellTypeVisible).Rows.Count > 1 Or ardata.Range(Cells(1, 2), Cells(arlrow, 8)).SpecialCells(xlCellTypeVisible).Areas.Count > 1 Then

Proceed on.