Microsoft VBA – 错误消息下标超出范围

我刚刚得到一个有几个macros的旧的Excel文件。 当我尝试使用它时，我总是得到错误消息“下标超出范围”。 我认为错误在于下面的代码，但是由于我对VBA的知识有限，我无法find它。 你可以请检查下面的代码？ 非常感谢！

Sub MD1() Dim sh As String Dim ce As String Dim n As Integer Dim a As Double Dim b As Double Dim c As Double Dim d As Double Dim e As Double Dim r As Integer n = Sheets("setup").Range("c11") sh = Sheets("setup").Range("c14") ce = Sheets("setup").Range("c15") For r = 3 To n + 3 Sheets(sh).Range(ce) = Sheets("MD1").Range("A" & r) a = Sheets("setup").Range("F17") b = Sheets("setup").Range("G17") c = Sheets("setup").Range("H17") d = Sheets("setup").Range("I17") e = Sheets("setup").Range("J17") Sheets("MD1").Range("B" & r) = a Sheets("MD1").Range("C" & r) = b Sheets("MD1").Range("D" & r) = c Sheets("MD1").Range("E" & r) = d Sheets("MD1").Range("F" & r) = e Next