Consultei a net e tentei adaptar todas as macros que encontrei e não deu certo (por falta de conhecimento, com certeza).

Prefiro que a pessoa poste o código que tentou e diga o que não funcionou ou o que não conseguiu fazer.

Arquivos de exemplo, caso deseje fazer adaptações.

Option Explicit

Private Sub Workbook_Open()
'Abre a pasta receptora que está salva no mesmo local em que esta pasta está salva
'Já foi testado e funcionou
Workbooks.Open (ThisWorkbook.Path & "Pasta Receptora.xlsm")

Dim wkb As Workbook
'wkb passa a ser a pasta receptora
Set wkb = ActiveWorkbook
'ultima linha do intervalo doador
Dim ulinha As Long

ulinha = ThisWorkbook.Sheets("Plan1").UsedRange.Rows.Count
'ativando a pasta doadora
ThisWorkbook.Activate

'selecionando a planilha doadora
ThisWorkbook.Sheets("Plan1").Select

'selecionando o intervalo doador
ThisWorkbook.Sheets("Plan1").Range("H2:H" & ulinha & ",K2:K" & ulinha & ",M2:M" & ulinha & ",W2:W" & ulinha & ",X2:X" & ulinha & ",Y2:Y" & ulinha & ",O2:O" & ulinha & ",P2:P" & ulinha & ",J2:J" & ulinha & ",S2:S" & ulinha & ",A2:A" & ulinha & ",AI2:AI" & ulinha & ",AJ2:AJ" & ulinha).Select


'copiando o intervalo doador
Selection.Copy

'ativando pasta receptora
wkb.Activate

'selecionando a planilha receptora
wkb.Sheets("Plan1").Select

'selecionado célula receptora
wkb.Sheets("Plan1").Range("E9").Select

'colando
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'tirando a seleção
Application.CutCopyMode = False

'salvando a pasta receptora
wkb.Save
'fechando a pasta receptora
wkb.Close



End Sub

Klarc,
Só não deu 100% certo ainda porque as células a serem copiadas não é num intervalo de células, mas em colunas intercaladas:
Ex: K, H, M, W, X, Y .......
Está dando erro justamente nessa linha: ThisWorkbook.Sheets("Plan1").Range("A2:E" & ulinha).Select (Números de argumentos incorreto ou atribuição

    ThisWorkbook.Sheets("Plan1").Range("H2:H" & ulinha & ",K2:K" & ulinha & ",M2:M" & ulinha & ",W2:W" & ulinha & ",X2:X" & ulinha & ",Y2:Y" & ulinha & ",O2:O" & ulinha & ",P2:P" & ulinha & ",J2:J" & ulinha & ",S2:S" & ulinha & ",A2:A" & ulinha & ",AI2:AI" & ulinha & ",AJ2:AJ" & ulinha).Select

Klarc,
Fiz as alterações acima sugeridas e tá dando o seguinte erro: "ESSA AÇÃO NÃO FUNCIONARÁ EM VÁRIAS SELEÇÕES". E o erro está dando na seguinte linha: "Selection.Copy"

Aqui não deu erro, mas em vez de fazer várias colunas ao mesmo tempo, você pode copiar uma coluna, colar, copiar outra coluna, colar...

Private Sub Workbook_Open()
'Abre a pasta receptora que está salva no mesmo local em que esta pasta está salva
'Já foi testado e funcionou
Workbooks.Open (ThisWorkbook.Path & "Pasta Receptora.xlsm")

Dim wkb As Workbook
'wkb passa a ser a pasta receptora
Set wkb = ActiveWorkbook
'ultima linha do intervalo doador
Dim ulinha As Long

ulinha = ThisWorkbook.Sheets("Plan1").UsedRange.Rows.Count

'++++++++++++++++ATENÇÃO+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'ativando a pasta doadora
ThisWorkbook.Activate

'selecionando a planilha doadora
ThisWorkbook.Sheets("Plan1").Select

'selecionando o intervalo doador
'ThisWorkbook.Sheets("Plan1").Range("H2:H" & ulinha & ",K2:K" & ulinha & ",M2:M" & ulinha & ",W2:W" & ulinha & ",X2:X" & ulinha & ",Y2:Y" & ulinha & ",O2:O" & ulinha & ",P2:P" & ulinha & ",J2:J" & ulinha & ",S2:S" & ulinha & ",A2:A" & ulinha & ",AI2:AI" & ulinha & ",AJ2:AJ" & ulinha).Select
ThisWorkbook.Sheets("Plan1").Range("H2:H" & ulinha).Select
'copiando o intervalo doador
Selection.Copy

'ativando pasta receptora
wkb.Activate

'selecionando planilha receptora
wkb.Sheets("Plan1").Select

'selecionando a célula receptora
wkb.Sheets("Plan1").Range("E9").Select

'colando
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'++++++++++++++++ATENÇÃO+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'ativando a pasta doadora
ThisWorkbook.Activate

'selecionando a planilha doadora
ThisWorkbook.Sheets("Plan1").Select

'selecionando o intervalo doador
'ThisWorkbook.Sheets("Plan1").Range("H2:H" & ulinha & ",K2:K" & ulinha & ",M2:M" & ulinha & ",W2:W" & ulinha & ",X2:X" & ulinha & ",Y2:Y" & ulinha & ",O2:O" & ulinha & ",P2:P" & ulinha & ",J2:J" & ulinha & ",S2:S" & ulinha & ",A2:A" & ulinha & ",AI2:AI" & ulinha & ",AJ2:AJ" & ulinha).Select
ThisWorkbook.Sheets("Plan1").Range("K2:K" & ulinha).Select
'copiando o intervalo doador
Selection.Copy

'ativando pasta receptora
wkb.Activate

'selecionando planilha receptora
wkb.Sheets("Plan1").Select

'selecionando a célula receptora
wkb.Sheets("Plan1").Range("F9").Select

'colando
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'++++++++++++++++ATENÇÃO+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


'REPITA PARA AS

'OUTRAS

'COLUNAS

'ISSO É UMA GAMBIARRA POR

'ESTAR DANDO ERRO AÍ



'++++++++++++++++++++++++++++++++++++++++ FINAL+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'tirando a seleção
Application.CutCopyMode = False

'salvando a pasta receptora
wkb.Save
'fechando a pasta receptora
wkb.Close



End Sub

Klarc,
Não ficou muito bem, demora demais transferir coluna por coluna e ficou uma loucura. Você falou em gambiarra, resolvi fazer a minha. Criei uma aba denominada "replicada" e como diz o titulo, repliquei a planilha principal e usei sua formula, só não deu certo porque está copiando as formulas e colando números, mas se tivesse como copiar e colar os valores da aba replicada e colar na aba de destino, ficaria beleza.

Para deixar mais rápido faça isto:

sub copiar( )
Application.ScreenUpdating = False


'código para copiar e colar aqui



Application.ScreenUpdating = True
end sub

O código a seguir é para colar somente valores:

'colando
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Para colar as fórmulas:

Option Explicit

Sub copiar()
Plan1.Select

Plan1.Range("A1").Select

Selection.Copy

Plan2.Select

Plan2.Range("A1").Select

'colando
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
':=False, Transpose:=False

ActiveSheet.Paste

ThisWorkbook.Save
End Sub

Klarc,
Depois de criar a aba "replicada"(com as colunas seguidas), copiei a formula da Planilha "Pasta Doadora" anexada por você no inicio do post e deu certo.

Muito obrigado.