repeative inceasing paste value of the selective cells

[123amitjain]

Attribute VB_Name = "Module1"
Sub Macro1()
Attribute Macro1.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Macro1 Macro
'


'
Sheets("Sheet2").Select
Range("I2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[1]C[-7]"
Range("I2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Range("J2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=Sheet1!R[1]C[-7]"
Range("J2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Range("K2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=Sheet1!R[1]C[-7]"
Range("K2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Range("L2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=Sheet1!R[1]C[-7]"
Range("L2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'
' repeat above code like this below what should u use? while , for , and how? ... inceasing range to the last cells ..
'
Range("I3").Select
ActiveCell.FormulaR1C1 = "=Sheet1!RC[-7]"
Range("I3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Range("J3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=Sheet1!RC[-7]"
Range("J3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Range("K3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=Sheet1!RC[-7]"
Range("K3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Range("L3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=Sheet1!RC[-7]"
Range("L3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
End Sub