I am looking for a VBA that will count the number of filled cells in column A starting from row A2 (A1 has headers) down and then insert the same amount of rows in sheet 1, sheet 2 and sheet 3 starting at row A7 for all 3.

Any help will be appreciated.