Sub LoopGetStockData() Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer Cells.ClearContents For y = 2017 To 2007 Step -1 For s = 4 To 1 Step -1 GetStockData "600000", y, s Next s Next UsedTime = VBA.Timer - StartTime Debug.…