Copiar columnas alternas de tabla dinámica

Hola buenas.
Tengo esta macro que he grabado, su fin es copiar columnas alternas y contiguas de una tabla dinámica a una hoja "plantilla".
En la tabla dinámica la cantidad sumada creo que no puede cambiarse de la última columna, he conseguido lo que quería pero se vuelve un poco loco y luego termina copiando todos los datos en la plantilla, quisiera saber cómo hacerlo sin que parpadee tanto office, y si puedo hacer eso mismo con otras ("INFORD1","INFORD2"etc...) hojas individualmente sin tener que hacer una macro para cada una, no sé si me explique bien, aquí dejo la macro.
Un saludo y muchas graciasSub Macro8()
' actualizar tablas antes de copiar
    ActiveWorkbook.RefreshAll
'
' EXPORTAR EN LA PLANTILLA
'
    Sheets("INFORD1 ").Select
    Range("I4:I49").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("plantilla").Select
    Range("B19:B64").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("INFORD1 ").Select
    Range("J4:J49").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("plantilla").Select
    Range("C19:C64").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("INFORD1 ").Select
    Range("K4:K49").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("plantilla").Select
    Range("F19:F64").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("INFORD1 ").Select
    Range("L4:M49").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("plantilla").Select
    Range("D19:E64").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End Sub