macro aanpassen zodat gegevens in andere excelfile gecopierd kunnen worden

[davylenders123]

Heb een macro gemaakt die in rij 9 vanaf h de cijfers 4,7,8,9,29,30,31,32,33,34,35 zet.
En de rij eronder 10 vanaf h neemt hij gegevens over uit andere cellen.
En op het laatste copier hij de rij 10 vanaf h.

Het is eigenlijk de bedoeling dat ik die gecopierde gegevens kan plakken in een andere excel file.
Maar als ik dat doe neemt hij de code over(bv=b25) en niet de getalen die in de cellen op rij 10 staan.
Wat moet ik juist aanpassen omdat wel te kunnen doen.

Range("H9").Select
    ActiveCell.FormulaR1C1 = "4"
    Range("I9").Select
    ActiveCell.FormulaR1C1 = "7"
    Range("J9").Select
    ActiveCell.FormulaR1C1 = "8"
    Range("K9").Select
    ActiveCell.FormulaR1C1 = "9"
    Range("L9").Select
    ActiveCell.FormulaR1C1 = "29"
    Range("M9").Select
    ActiveCell.FormulaR1C1 = "30"
    Range("N9").Select
    ActiveCell.FormulaR1C1 = "31"
    Range("O9").Select
    ActiveCell.FormulaR1C1 = "32"
    Range("P9").Select
    ActiveCell.FormulaR1C1 = "33"
    Range("Q9").Select
    ActiveCell.FormulaR1C1 = "34"
    Range("R9").Select
    ActiveCell.FormulaR1C1 = "35"
    Range("H10").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[-6]"
    Range("I10").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-7]"
    Range("J10").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("K10").Select
    ActiveCell.FormulaR1C1 = "=R[1]C[-9]"
    Range("L10").Select
    ActiveCell.FormulaR1C1 = "=R[21]C[-10]"
    Range("M10").Select
    ActiveCell.FormulaR1C1 = "=R[22]C[-11]"
    Range("N10").Select
    ActiveCell.FormulaR1C1 = "=R[23]C[-12]"
    Range("O10").Select
    ActiveCell.FormulaR1C1 = "=R[24]C[-13]"
    Range("P10").Select
    ActiveCell.FormulaR1C1 = "=R[25]C[-14]"
    Range("Q10").Select
    ActiveCell.FormulaR1C1 = "=R[26]C[-15]"
    Range("R10").Select
    ActiveCell.FormulaR1C1 = "=R[27]C[-16]"
    Range("H10:R10").Select
    Selection.Copy