请教

怎样使录制的宏从sheet1运行到sheet365
Sub 宏1()
'
' 宏1 宏
'
'
Range("D4").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC[-3],Sheet373!R2C1:R2000C2,2,FALSE),0)"
Range("D4").Select
Selection.AutoFill Destination:=Range("D4:D40"), Type:=xlFillDefault
Range("D4:D40").Select
ActiveWindow.SmallScroll Down:=-24
Range("E4").Select
ActiveCell.FormulaR1C1 = "=RC[-3]*RC[-2]"
Range("E4").Select
Selection.AutoFill Destination:=Range("E4:E40"), Type:=xlFillDefault
Range("E4:E40").Select
ActiveWindow.SmallScroll Down:=-24
Range("F4").Select
ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-4]*RC[-2]"
Range("F4").Select
Selection.AutoFill Destination:=Range("F4:F40"), Type:=xlFillDefault
Range("F4:F40").Select
ActiveWindow.SmallScroll Down:=-30
Range("H4").Select
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
Range("H4").Select
Selection.AutoFill Destination:=Range("H4:H40"), Type:=xlFillDefault
Range("H4:H40").Select
ActiveWindow.SmallScroll Down:=-30
Sheets("sheet2").Select
End Sub