Jak osekat kod

Stručne, potrebujem zjednodusit tento kod, pride mi to dost zlozite, a je to aj dost pomale: tu je kod
Private Sub Worksheet_Activate()
Sheets(“dsp”).Range(“d62:w76”).Copy
With Sheets(“ss”).Range(“g6:z20”)
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
.Font.Size = 14
End With

Sheets(“dsp”).Range(“d60:w60”).Copy
With Sheets(“ss”).Range(“g4:z4”)
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
.Font.Size = 14
End With

Sheets(“dsp”).Range(“x62:aq76”).Copy
With Sheets(“ss”).Range(“g39:z53”)
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
.Font.Size = 14
End With

Sheets(“dsp”).Range(“x60:aq60”).Copy
With Sheets(“ss”).Range(“g37:z37”)
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
.Font.Size = 14
End With

Sheets(“dsp”).Range(“ar62:bm76”).Copy
With Sheets(“ss”).Range(“g68:ab82”)
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
.Font.Size = 14
End With
Sheets(“dsp”).Range(“ar60:bm60”).Copy

With Sheets(“ss”).Range(“g66:ab66”)
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
.Font.Size = 14
End With

End Sub