I am trying to write a "For" loop in my macro below- it basically takes the value from one sheet (Sheet 3), runs it through some calculations in another sheet (Sheet1) and then reprints it in the initial sheet (Sheet3). I want to run a loop for it, but I'm not sure how to- the values that change are Sheet2 from D2 to D16, and Sheet 3 I4, J4 and K4 to I18, J18 and K18. THe output values will appear in sheet3, between L4 and M4 to L18 and M18.

Sheets("Sheet1").Range("I1").Value = Sheets("Sheet2").Range("D2").Value
Sheets("Sheet1").Range("B4").Value = Sheets("Sheet3").Range("I4").Value
Sheets("Sheet1").Range("B3").Value = Sheets("Sheet3").Range("J4").Value
Sheets("Sheet1").Range("R1").Value = Sheets("Sheet3").Range("K4").Value

Sheets("Sheet3").Range("L4").Value = Sheets("Sheet1").Range("F88").Value
Sheets("Sheet3").Range("M4").Value = Sheets("Sheet1").Range("F89").Value

Sheets("Sheet1").Range("I1").Value = Sheets("Sheet2").Range("D3").Value
Sheets("Sheet1").Range("B4").Value = Sheets("Sheet3").Range("I5").Value
Sheets("Sheet1").Range("B3").Value = Sheets("Sheet3").Range("J5").Value
Sheets("Sheet1").Range("R1").Value = Sheets("Sheet3").Range("K5").Value

Sheets("Sheet3").Range("L5").Value = Sheets("Sheet1").Range("F88").Value
Sheets("Sheet3").Range("M5").Value = Sheets("Sheet1").Range("F89").Value
CAn somebody help out please?