EXCEL VBA quisiera que me ayuden a hacer mas fácil esta rutina

Sub Copiar_Sabsa_Felcn()
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect "moonmirage"
End If
Worksheets("Informe Auxiliar").Range("G4").Value = Worksheets("Guia").Range("G4").Value
Worksheets("Informe Auxiliar").Range("G40").Value = Worksheets("Guia").Range("G4").Value
Worksheets("Informe Auxiliar").Range("Z4").Value = Worksheets("Guia").Range("Z4").Value
Worksheets("Informe Auxiliar").Range("Z40").Value = Worksheets("Guia").Range("Z4").Value
Worksheets("Informe Auxiliar").Range("AN4").Value = Worksheets("Guia").Range("AN4").Value
Worksheets("Informe Auxiliar").Range("AN40").Value = Worksheets("Guia").Range("AN4").Value
Worksheets("Informe Auxiliar").Range("BG4").Value = Worksheets("Guia").Range("BG4").Value
Worksheets("Informe Auxiliar").Range("BG40").Value = Worksheets("Guia").Range("BG4").Value
Worksheets("Informe Auxiliar").Range("K6").Value = Worksheets("Guia").Range("K6").Value
Worksheets("Informe Auxiliar").Range("K42").Value = Worksheets("Guia").Range("K6").Value
Worksheets("Informe Auxiliar").Range("AC6").Value = Worksheets("Guia").Range("AC6").Value
Worksheets("Informe Auxiliar").Range("AC42").Value = Worksheets("Guia").Range("AC6").Value
Worksheets("Informe Auxiliar").Range("BG6").Value = Worksheets("Guia").Range("BG6").Value
Worksheets("Informe Auxiliar").Range("BG42").Value = Worksheets("Guia").Range("BG6").Value
Worksheets("Informe Auxiliar").Range("R11").Value = Worksheets("Guia").Range("R19").Value
Worksheets("Informe Auxiliar").Range("R47").Value = Worksheets("Guia").Range("R19").Value
Worksheets("Informe Auxiliar").Range("V11").Value = Worksheets("Guia").Range("V19").Value
Worksheets("Informe Auxiliar").Range("V47").Value = Worksheets("Guia").Range("V19").Value
Worksheets("Informe Auxiliar").Range("AD11").Value = Worksheets("Guia").Range("AD19").Value
Worksheets("Informe Auxiliar").Range("AD47").Value = Worksheets("Guia").Range("AD19").Value
Worksheets("Informe Auxiliar").Range("AH11").Value = Worksheets("Guia").Range("AH19").Value
Worksheets("Informe Auxiliar").Range("AH47").Value = Worksheets("Guia").Range("AH19").Value
Worksheets("Informe Auxiliar").Range("AP11").Value = Worksheets("Guia").Range("AP19").Value
Worksheets("Informe Auxiliar").Range("AP47").Value = Worksheets("Guia").Range("AP19").Value
Worksheets("Informe Auxiliar").Range("AT11").Value = Worksheets("Guia").Range("AT19").Value
Worksheets("Informe Auxiliar").Range("AT47").Value = Worksheets("Guia").Range("AT19").Value
Worksheets("Informe Auxiliar").Range("BL11").Value = Worksheets("Guia").Range("BL19").Value
Worksheets("Informe Auxiliar").Range("BL47").Value = Worksheets("Guia").Range("BL19").Value
Worksheets("Informe Auxiliar").Range("B16").Value = Worksheets("Guia").Range("B24").Value
Worksheets("Informe Auxiliar").Range("B52").Value = Worksheets("Guia").Range("B24").Value
Worksheets("Informe Auxiliar").Range("F16").Value = Worksheets("Guia").Range("F24").Value
Worksheets("Informe Auxiliar").Range("F52").Value = Worksheets("Guia").Range("F24").Value
Worksheets("Informe Auxiliar").Range("L16").Value = Worksheets("Guia").Range("L24").Value
Worksheets("Informe Auxiliar").Range("L52").Value = Worksheets("Guia").Range("L24").Value
Worksheets("Informe Auxiliar").Range("R16").Value = Worksheets("Guia").Range("R24").Value
Worksheets("Informe Auxiliar").Range("R52").Value = Worksheets("Guia").Range("R24").Value
Worksheets("Informe Auxiliar").Range("AD16").Value = Worksheets("Guia").Range("AD24").Value
Worksheets("Informe Auxiliar").Range("AD52").Value = Worksheets("Guia").Range("AD24").Value
Worksheets("Informe Auxiliar").Range("AH16").Value = Worksheets("Guia").Range("AH24").Value
Worksheets("Informe Auxiliar").Range("AH52").Value = Worksheets("Guia").Range("AH24").Value
Worksheets("Informe Auxiliar").Range("AL16").Value = Worksheets("Guia").Range("AL24").Value
Worksheets("Informe Auxiliar").Range("AL52").Value = Worksheets("Guia").Range("AL24").Value
Worksheets("Informe Auxiliar").Range("AP16").Value = Worksheets("Guia").Range("AP24").Value
Worksheets("Informe Auxiliar").Range("AP52").Value = Worksheets("Guia").Range("AP24").Value
Worksheets("Informe Auxiliar").Range("AT16").Value = Worksheets("Guia").Range("AT24").Value
Worksheets("Informe Auxiliar").Range("AT52").Value = Worksheets("Guia").Range("AT24").Value
Worksheets("Informe Auxiliar").Range("AX16").Value = Worksheets("Guia").Range("AX24").Value
Worksheets("Informe Auxiliar").Range("AX52").Value = Worksheets("Guia").Range("AX24").Value
Worksheets("Informe Auxiliar").Range("B17").Value = Worksheets("Guia").Range("B25").Value
Worksheets("Informe Auxiliar").Range("B53").Value = Worksheets("Guia").Range("B25").Value
Worksheets("Informe Auxiliar").Range("F17").Value = Worksheets("Guia").Range("F25").Value
Worksheets("Informe Auxiliar").Range("F53").Value = Worksheets("Guia").Range("F25").Value
Worksheets("Informe Auxiliar").Range("L17").Value = Worksheets("Guia").Range("L25").Value
Worksheets("Informe Auxiliar").Range("L53").Value = Worksheets("Guia").Range("L25").Value
Worksheets("Informe Auxiliar").Range("R17").Value = Worksheets("Guia").Range("R25").Value
Worksheets("Informe Auxiliar").Range("R53").Value = Worksheets("Guia").Range("R25").Value
Worksheets("Informe...