运行时错误9下标超出范围，而在2016年运行

我在Excel 2016中得到这个错误，但在2013年在线工作正常

Set destSheet = Workbooks(newSnameQ).Sheets(2)

码：

  For i = 1 To lastRowSh1 If destSheet.Range("C" & i) <> "" Then destSheet.Range("D" & i) = "Auto Match" End If Next i 'Transfer the LGA processed data from sheet "LGA_Data" Sheet3.Select Set destSheet = Workbooks(newSnameQ).Sheets(2) lastRowSh1 = Sheet3.Cells(Rows.count, "I").End(xlUp).Row If lastRowSh1 < 25 Then