Excel - Simplificar macro excel

Application.ScreenUpdating = False

    ChDir "C:\Users\grubio\Documents\Informes de Ventas"

    Workbooks.Open Filename:= _

        "C:\Users\grubio\Documents\Informes de Ventas\Libro1.xlsx"

    Windows("Informe de Ventas por Producto.xlsm").Activate

    Range("B2:B7").Select

    Range(Selection, Selection.End(xlToRight)).Select

    Range("B2:X7").Select

    Selection.Copy

    Windows("Libro1.xlsx").Activate

    Range("B4").Select

    ActiveSheet.Paste

sub Informe()

    dim Orig(22) as string, area(22) as string, Dest(22) as string, Celda(22) as string

    Orig( 1)="Fechas"        : Area ( 1)="B2:X7"

    Dest( 1)="Venta"         : Celda( 1)="B4"

    Orig( 2)="Fechas"        : Area ( 2)="C2:X7"

    Dest( 2)="Venta"         : Celda( 2)="C4"

    Orig( 3)="VENTA VALIDADA": Area ( 3)="B2:X7"

    Dest( 3)="Venta"         : Celda( 3)="B13"

    Orig( 4)="VENTA VALIDADA": Area ( 4)="C2:X7"

    Dest( 4)="Venta"         : Celda( 4)="C13"

    Orig( 5)="VENTA INSTALADA": Area ( 5)="C2:X7"

    Dest( 5)="Venta"          : Celda( 5)="B22"

    ...

    For a=1 to 22

        Copy_Paste Orig(a), Area(a), Dest(a), Celda(a)

    Next

    ...

End Sub

Private Sub Copy_Paste (Orig, Area, Dest, Celda)

    Windows(Libro_Origen).Activate

    Sheets(Orig).Select:Range(Area).Select: Selection.Copy

    Windows(Libro_Destino).Activate

    Sheets(Dest).Select: Range(Celda).Select

    Selection.PasteSpecial Paste:=xlPasteValues, _

                           Operation:=xlNone, _

                           SkipBlanks:=False, _

                           Transpose:=False

End Sub