怎么循环运行这个代码？

大佬您好，请问您这段代码，怎么循环运行？Sub 统计()Dim I, n For I = 3 To 102 x = WorksheetFunction.CountIf(Range(Cells(I, "a"), Cells(I, "CL")), Cells(I, "CM")) If x 0 Then n = 0 Cells(I, "CO") = "已完成订单" Else n = n + 1 Cells(I, "CO") = n End If Next [CP1] = WorksheetFunction.Max(Range("CO2:CO102")) [CP2] = [CO102] [CO3:CO102] = "" 数据清空End Sub现在点一次，运行一次，返回一次结果，怎么让他一直运行，一直返回结果到cp1，cp2呢？