Anderson
Deu pra resumir o código nestas linhas: 

Sub salvar()
    Dim Linha As Long: Linha = Plan2.Range("A1048576").End(xlUp).Row + 1
    Plan2.Range("A" & Linha).PasteSpecial Paste:=xlPasteAll, Transpose:=True = Plan1.Range("A2,A4,A6,A8,A10").Copy
End Sub

Obrigado.

Vou aguardar para ver se alguém conhece uma forma que não usa Copy Paste.

Boa noite, @anderson

O método Copy/Paste como proposto pelo colega @raygsson é o único que pode transferir o conteúdo de todas as células de intervalos não-adjacentes em uma só operação para outro intervalo. Fora isso, vc teria que fazer loop não em cada célula, mas em cada grupo de células contíguas de seu intervalo (cada área). Por exemplo, se seu intervalo fosse:

Set intervalo = Plan1.Range("A2:A5,A7,A9:A10")

Vc teria que fazer pelo menos 3 loops (intervalo.Areas.Count = 3) embora ele tenha (intervalo.Cells.Count) = 7 células. Para esses 3 grupos de células, cada um admite transferir seu valor ou fazer outro processamento em bloco em uma só operação (por ex. propriedades Value, Value2, atribuir a uma matriz, etc.).

Como seu intervalo do exemplo é composto só por células únicas não adjacentes, sendo 5 células serão 5 entradas no loop mesmo.

@edsonbr Obrigado, Edson.

@anderson pelo que entendi você quer copiar os dados de um intervalo na planilha 1 e colar na planilha 2.

Há várias formas de fazer isso. Na minha opinião a mais simples é utilizar uma referência estruturada, o que facilita a identificação de um intervalo dinâmico. Para fazer isso, selecione o intervalo e formate como tabela. A referência a esse intervalo é feita assim no VBA: "Range("Tabela1[Coluna1]")" (lembrando de colocar o nome correto da tabela e da coluna de dados).

Se não quer utilizar o método copy paste, terá que utilizar um array para capturar os dados na primeira planilha e depois percorrer as células do intervalo de destino, igualando cada uma a um elemento do array (aqui tem o que você precisa saber sobre arrays: http://www.macoratti.net/arrays.htm).

Outra coisa: podes utilizar o método End(xlDown) para localizar a primeira linha em branco, em vez de um loop. Assim:

Range("A2").Select
linha=Selection.End(xlDown).Offset(1,0).Row

Espero ter ajudado.