Count records in table based on criteria, select and paste to a new spreadsheet

I have a ListObject table called Table1, and the column name is Table1[Company]. The records have been sorted A-Z for the Company.

The records look something like this

Date Employee Company
-------------------------------------------
1/1/11 Jane A Company
1/1/11 Jane B Company
3/1/11 Bob B Company
2/1/11 Bob B Company
4/1/11 Bob B Company
5/1/11 Bob C Company


What I need is a sub() to look in the column of Table1[Company] and determine:

The # of records that match the criteria given the Company name, and where they start and end. Ultimately, I'd like to copy and paste this portion of the table to another spreadsheet.

So for instance, if the Company = "B Company", then I could find out there are 4 records and there locations to copy and paste them.

Any ideas?