This code is extremely slow even after adding the Speedup functions in code

Question

I have been using this CODE which takes the data from Sheet1 and paste into Sheet2 in a sequence i.e. first year as quarter and remaining years as