Tengo una macro, pero quiero que esta se repita ciertas veces según el valor de una celda, como hacerlo?

Este es mi macro (código)

Sub PASO5()
'
' PASO5 Macro
' COPIAR VENTAS Y GRAVARLAS
'

'
Sheets("INFORMACION").Select
Cells.Select
Selection.Copy
Sheets("COPIA DE LAS VENTAS").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("VENTAS A IMPORTAR").Select
Rows("2:10").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2").Select
ActiveCell.FormulaR1C1 = "41353601"
Range("A3").Select
ActiveCell.FormulaR1C1 = "41353605"
Range("A4").Select
ActiveCell.FormulaR1C1 = "41353615"
Range("A5").Select
ActiveCell.FormulaR1C1 = "24080501"
Range("A6").Select
ActiveCell.FormulaR1C1 = "13551502"
Range("A7").Select
ActiveCell.FormulaR1C1 = "13551511"
Range("A8").Select
ActiveCell.FormulaR1C1 = "13559501"
Range("A9").Select
ActiveCell.FormulaR1C1 = "23657503"
Range("A10").Select
ActiveCell.FormulaR1C1 = "13050501"
Range("B2").Select
ActiveCell.FormulaR1C1 = "4"
Range("B3").Select
ActiveCell.FormulaR1C1 = "4"
Range("B4").Select
ActiveCell.FormulaR1C1 = "4"
Range("B5").Select
ActiveCell.FormulaR1C1 = "4"
Range("B6").Select
ActiveCell.FormulaR1C1 = "4"
Range("B7").Select
ActiveCell.FormulaR1C1 = "4"
Range("B8").Select
ActiveCell.FormulaR1C1 = "4"
Range("B9").Select
ActiveCell.FormulaR1C1 = "4"
Range("B10").Select
ActiveCell.FormulaR1C1 = "4"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=INFORMACION!R2C8"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C10"), Type:=xlFillDefault
Range("C2:C10").Select
Range("D2").Select
ActiveCell.FormulaR1C1 = "=INFORMACION!R2C7"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:E2"), Type:=xlFillDefault
Range("D2:E2").Select
Selection.AutoFill Destination:=Range("D2:E10"), Type:=xlFillDefault
Range("D2:E10").Select
Range("F2").Select
ActiveCell.FormulaR1C1 = "=+INFORMACION!R2C3"
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F10"), Type:=xlFillDefault
Range("F2:F10").Select
Range("G2").Select
ActiveCell.FormulaR1C1 = "VENTAS"
Range("G2").Select
Selection.AutoFill Destination:=Range("G2:G10"), Type:=xlFillDefault
Range("G2:G10").Select
Range("H2").Select
ActiveCell.FormulaR1C1 = "2"
Range("H3").Select
ActiveCell.FormulaR1C1 = "2"
Range("H4").Select
ActiveCell.FormulaR1C1 = "2"
Range("H5").Select
ActiveCell.FormulaR1C1 = "2"
Range("H6").Select
ActiveCell.FormulaR1C1 = "1"
Range("H7").Select
ActiveCell.FormulaR1C1 = "1"
Range("H8").Select
ActiveCell.FormulaR1C1 = "1"
Range("H9").Select
ActiveCell.FormulaR1C1 = "2"
Range("H10").Select
ActiveCell.FormulaR1C1 = "1"
Range("I2").Select
ActiveCell.FormulaR1C1 = "=+IF(INFORMACION!RC="""",0,INFORMACION!RC)"
Range("I3").Select
ActiveCell.FormulaR1C1 = _
"=+IF(INFORMACION!R[-1]C[1]="""",0,INFORMACION!R[-1]C[1])"
Range("I4").Select
ActiveCell.FormulaR1C1 = _
"=+IF(INFORMACION!R[-2]C[2]="""",0,INFORMACION!R[-2]C[2])"
Range("I5").Select
ActiveCell.FormulaR1C1 = _
"=+IF(INFORMACION!R[-3]C[3]="""",0,INFORMACION!R[-3]C[3])"
Range("I6").Select
ActiveCell.FormulaR1C1 = _
"=+IF(INFORMACION!R[-4]C[8]="""",0,INFORMACION!R[-4]C[8])"
Range("I7").Select
ActiveCell.FormulaR1C1 = _
"=+IF(INFORMACION!R[-5]C[7]="""",0,INFORMACION!R[-5]C[7])"
Range("I8").Select
ActiveCell.FormulaR1C1 = "SI"
Range("I8").Select
ActiveCell.FormulaR1C1 = _
"=+IF(INFORMACION!R[-6]C[4]="""",0,INFORMACION!R[-6]C[4])"
Range("I9").Select
ActiveCell.FormulaR1C1 = "=+R[-1]C"
Range("I10").Select
ActiveCell.FormulaR1C1 = "=+R[-8]C+R[-7]C+R[-6]C+R[-5]C-R[-4]C-R[-3]C"
Range("J5").Select
ActiveCell.FormulaR1C1 = "=+IF(RC[-1]=0,0,RC[-1]/16%)"
Range("J6").Select
ActiveCell.FormulaR1C1 = "=+IF(RC[-1]=0,0,RC[-1]/'DATOS GENERALES'!R[1]C[-8])"
Range("J7").Select
ActiveCell.FormulaR1C1 = "=+IF(RC[-1]=0,0,RC[-1]/'DATOS GENERALES'!R[-4]C[-8])"
Range("J8").Select
ActiveCell.FormulaR1C1 = "=+IF(RC[-1]=0,0,RC[-1]/'DATOS GENERALES'!R[-7]C[-8])"
Range("J9").Select
ActiveCell.FormulaR1C1 = "=+R[-1]C"
Range("J10").Select
ActiveCell.FormulaR1C1 = "0"
Range("J2").Select
ActiveCell.FormulaR1C1 = "0"
Range("J3").Select
ActiveCell.FormulaR1C1 = "0"
Range("J4").Select
ActiveCell.FormulaR1C1 = "0"
Rows("2:10").Select
Selection.Font.Bold = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("INFORMACION").Select
Rows("2:2").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("MACROS").Select
End Sub

como le agrego el bucle, teniendo en cuenta que la celda que tiene el valor (que quiero que se repita) esta en la "E2" en la hoja "DATOS"

muchas gracias de antemano.