Hello friends,

I'm a beginner with VBA and I want to ask if someone can provide me with the VBA code to make this long code as small as possible.

Thank you in advance for any help offered.



Sub PRD2()
'
' PRD2 Macro
'
    Application.ScreenUpdating = False

    Windows("ST1.xls").Activate
    Range("A53:IU53").Select
    Selection.Copy
    Range("A62").Select
    Selection.Insert Shift:=xlDown

    Range("D55:V62").Select
    Range("D62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("D55:V62").Select
    Range("E62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("D55:V62").Select
    Range("F62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("D55:V62").Select
    Range("G62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("D55:V62").Select
    Range("H62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("D55:V62").Select
    Range("I62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("D55:V62").Select
    Range("J62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("D55:V62").Select
    Range("K62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("D55:V62").Select
    Range("L62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("D55:V62").Select
    Range("M62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("D55:V62").Select
    Range("N62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("D55:V62").Select
    Range("O62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("D55:V62").Select
    Range("P62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("D55:V62").Select
    Range("Q62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("D55:V62").Select
    Range("R62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("D55:V62").Select
    Range("S62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("D55:V62").Select
    Range("T62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("D55:V62").Select
    Range("U62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("D55:V62").Select
    Range("V62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("X55:AN62").Select
    Range("X62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("X55:AN62").Select
    Range("Y62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("X55:AN62").Select
    Range("Z62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("X55:AN62").Select
    Range("AA62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("X55:AN62").Select
    Range("AB62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("X55:AN62").Select
    Range("AC62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("X55:AN62").Select
    Range("AD62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("X55:AN62").Select
    Range("AE62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("X55:AN62").Select
    Range("AF62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("X55:AN62").Select
    Range("AG62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("X55:AN62").Select
    Range("AH62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("X55:AN62").Select
    Range("AI62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"
    Range("X55:AN62").Select
    Range("AJ62").Activate
    ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-1]C)"

    
The VBA code actually goes much further 


    Application.ScreenUpdating = True
End