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
Bookmarks