Copy a certain number of rows containing data after a filter is applied.

I have a spreadsheet that contains a list of items available from a storeroom. I would to be able to filter a quantity column to show any nonblanks and then copy the rows over to another sheet. I have the code created for this but here is my problem. How do I select the rows when the row numbers will change? Depending which rows have a number in them the rows present after the filter will change. I need to copy the rows that are not blank no matter of the rows number. Below is the code I have so far, the line I am having problems with is "Range("A2:D4").Select". I have also attached a small example of what i working with. The actual spreadsheet has hundreds of possible rows.
Store.xls

Please Login or Register  to view this content.

Thanks for the help on this but I am getting a "run time error 438 Object doesn't support this property or method" when i run this line [ActiveSheet.SpecialCells(xlCellTypeVisible).Copy]. I changed the line to read [ActiveSheet.Cells.SpecialCells(xlCellTypeVisible).Copy] but that tries to select everything. I also have a header row that i don't want to copy over.

This worked great with the exception of, it selects 1 empty row below the rows with text. For what i need i can live with an additional empty row. Thanks for the help.

@ Tazdvl1124

Based on your last post it seems that you are satisfied with the solution(s) you've received but you haven't marked your thread as SOLVED. I'll do that for you now but please keep in mind for your future threads that Rule #9 requires you to do that yourself. If your problem has not been solved you can use Thread Tools (located above your first post) and choose "Mark this thread as unsolved".
Thanks.