VBA loop through all sheets and if specific cell matches copy range into sheet

Question

I have a workbook with many sheets. I want to consolidate the worksheets to reduce the number of sheets.

Cell A13 in most the sheets is different but for