Excel VBA - 在每个单元格中循环遍历范围并设置公式

I've got a workbook where I have one worksheet which contains a lot of data. My goal is to create a macro that inserts a formula in a separate sheet to copy the data from the first sheet. Lets call the first sheet "Numbers1" and the second sheet "TidyNumbers1".I've got a workbook where I have one worksheet