Copiar os valores e transferir conforme abaixo não é aceito

Sheets("Jan").Range("A6:D6.F6").Copy: Sheets("Fev").Range("A6:D6,F6").PasteSpecial Paste:=xlPasteValues

Tive que fazer assim para funcionar

Sheets("Jan").Range("A6:D6").Copy: Sheets("Fev").Range("A6:D6").PasteSpecial Paste:=xlPasteValues
Sheets("Jan").Range("F6").Copy: Sheets("Fev").Range("F6").PasteSpecial Paste:=xlPasteValues

Se eu tiver que fazer várias linhas Ex: F6 , H6, J6, N6..... não fica lento ?

Obrigado !