Boa tarde, Paulo Vitor

Dá pra copiar com seleções múltiplas e colar num intervalo contíguo (células adjacentes), mas não dá pra copiar seleções múltiplas e colar também em seleções múltiplas, mesmo que os intervalos sejam de mesmo tamanho ou até idênticos.

Só que no seu caso nem precisaria ser seleção múltipla, afinal os intervalos A5:A6 e A7:A8 estão lado a lado então seria equivalente a A5:A8, não é mesmo?
Aí é só fazer pela forma normal que dá certo.

Mas caso vc tenha ranges múltiplas de células não adjacentes, como por exemplo A5:A6, A9:A10, faça um loop pelas áreas. Exemplo:

Sub CopiaIntervaloNaoAdjacente()
  Dim rgArea As Range
  For Each rgArea In Worksheets("macro").Range("A5:A6,A9:A10").Areas
    rgArea.Copy Worksheets("xml").Range(rgArea.Address)
  Next rgArea
End Sub

obrigado!