make VBA code smaller

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

Shg, thank you for your reply.

How do I let the VBA code skip one column if it's empty and it doesn't need to be calculated?

Greetings

I mean something like;

If ActiveCell = "" then next ...