Sub Macro1(Param1 As String)

    Range("E9").Select
    ActiveCell.FormulaR1C1 = Param1
    Range("D9").Select
    ActiveCell.FormulaR1C1 = "14"
    Range("C9").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-8]C:R[-1]C)"
    Range("C10").Select
End Sub