VBA Run-time error ‘-2147417848 (80010108)’ but only with large data sets

Question

Each of the datasheets has a header row and the first row has a number of formulas. The code is supposed to first delete the data in each sheet except for the header row and