Excel VBA问题 if then 使用

Excel 多页文件的序号 选定后下拉的自动生成程序，之前运行正常，但今天在此段后面加入了一个复制粘贴的宏后就不能运行了，更诡异的是我把后面的这段宏再删除后也不能正常运行。。看了半天也没发现问题在哪里，请教大神们~
原程序：
Dim b
If Sheet1.Range("F37").Value > Sheet1.Range("F36").Value Then
b = 1
Else
b = -1
Sheet1.Range("F8").Value = Sheet1.Range("F37").Value + b
Sheet1.Range("F9").Value = Sheet1.Range("F8").Value + b
End If
Range("F8:F9").Select
Selection.AutoFill Destination:=Range("F8:F37")

Range("F8:F37").Select

Range("H8").Select
在后面新增的程序
Application.Run "'1986.xlsb'!垂直度"
ActiveWindow.SmallScroll Down:=-4
Range("J8").Select
ActiveSheet.Paste
Range("J15").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=3
Range("J22").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=4
Range("J29").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=9
Range("J36").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "0.7"
Range("J37").Select
ActiveCell.FormulaR1C1 = "0.9"
Range("J38").Select
ActiveWindow.SmallScroll Down:=-18
Application.Run "'1986.xlsb'!平面误差"
ActiveWindow.SmallScroll Down:=-4
Range("K8").Select
ActiveSheet.Paste
Range("K13").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=4
Range("K18").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=3
Range("K23").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=3
Range("K28").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=4
Range("K33").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-17
Application.Run "'1986.xlsb'!外露长度"
Range("M8").Select
ActiveSheet.Paste
Range("M13").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=3
Range("M18").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=3
Range("M23").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=4
Range("M28").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=4
Range("M33").Select
ActiveSheet.Paste
求解决，不胜感激~

运行不是有错误提示吗？提示什么？

dim d as string d = mid(workbooks("a.xls").sheets("sheet1").range("f2").value, 7) dim ding as range workbooks("b.xls").activate set ding = sheets("sheet2").range("d2:d" & range("d65555").end(xlup).row).find(d) sheets("sheet2").cells(ding.row, 6) = workbooks("a.xls").sheets("sheet1").range("a8").end(xldown).offset(-2, 0) 第1处粗体，不激活b.xls，无法实现下面的find； 第2处粗体，“d2:d" & ...，如果...是20，那么就是d2:d20； 第3处粗体，cells(i,j)表示第i行第j列，都必须是数字，f列是第6列； 第4处粗体，offset(i,j)表示往下i行往右j列，a列的单元格往右-2列（即往左2列）出错。