Need help portfolio simulation

Hi everyone,

I don't speak english very well so sorry for my all mistake :).

So i recorded macro for Jun 6, 2013:

Sub Makro8()
'
' Makro8 Makro
'

'
    Sheets("dzienne st zwrotu").Select
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 1
    Range("A73").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(R[-66]C:R[-47]C)"
    Range("C73").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(R[-66]C:R[-47]C)"
    Range("C73").Select
    Selection.AutoFill Destination:=Range("C73:AG73"), Type:=xlFillDefault
    Range("C73:AG73").Select
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Sheets("VAR").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("C7").Select
    ActiveCell.FormulaR1C1 = "=INT(R[4]C/INDIRECT(R4C&""!G4""))"
    Range("C7").Select
    Selection.AutoFill Destination:=Range("C7:AG7"), Type:=xlFillDefault
    Range("C7:AG7").Select
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 1
    Range("H24").Select
    ActiveCell.FormulaR1C1 = "=INT(R[1]C/XLU!R[-20]C[-1])"
    Range("H25").Select
    ActiveWindow.SmallScroll Down:=0
    Range("C8").Select
    ActiveCell.FormulaR1C1 = "=INDIRECT(R4C&""!B3"")"
    Range("C8").Select
    Selection.AutoFill Destination:=Range("C8:AG8"), Type:=xlFillDefault
    Range("C8:AG8").Select
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 1
    Range("C9").Select
    ActiveCell.FormulaR1C1 = "=INDIRECT(R4C&""!E3"")"
    Range("C9").Select
    Selection.AutoFill Destination:=Range("C9:AG9"), Type:=xlFillDefault
    Range("C9:AG9").Select
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("H26").Select
    ActiveCell.FormulaR1C1 = "=XLU!R[-23]C[-6]"
    Range("H27").Select
    ActiveCell.FormulaR1C1 = "=XLU!R[-24]C[-3]"
    Range("E16").Select
    SolverOk SetCell:="$C$19", MaxMinVal:=1, ValueOf:="0", ByChange:="$C$11:$AG$11"
    SolverSolve
    ActiveWindow.SmallScroll Down:=12
    Range("J30").Select
    Selection.Copy
    Range("C39").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

And i want to fill all data in "var" sheet automatic from Jun 5, 2013
to May 8, 2013. Can anyone help me?

It will be first simulation. And next i want to change something for example cell C16 and C17 and again make simulation for date from Jun 5, 2013 to May 8, 2013.