Macro não funciona em partes

[nat@gomes]

Ei pessoal! Por favor me ajudem. Estou aproveitando uma macro, incluir outras linhas que quero que também seja copiada, mas não deu certo. 

 

Esta é a macro, a partir do que está destacado de vermelho eu inseri, e também alterei o Range("A2:AF2").Select, para que as informações pudessem ir para a outra planilha, só que as informações vão somente até  Range( _
        "F3:P3,R3,T3:U3,F5:J5,L5:N5,P5:T5,F8,H8,J8,L8:N8,P8:R8,T8,A10:H10,J10:L10,N10:T10,A12:H12,J12:L12,N12:R12,T12,A14:C14,E14:H14,J14:N14,P14:T14, já olhei virgula, espaço e nada. Podem me ajudar?

 

Sub Cadastrar()
'
' Cadastrar Macro

'
    Sheets("Banco de Dados").Select
    Rows("1:3").Select
    Selection.EntireRow.Hidden = False
    Range("A2:AF2").Select
    Selection.Copy
    Range("A3").Select
    Selection.Insert Shift:=xlDown
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("2:2").Select
    Selection.EntireRow.Hidden = True
    Sheets("Cadastrar").Select
    Range( _
        "F3:P3,R3,T3:U3,F5:J5,L5:N5,P5:T5,F8,H8,J8,L8:N8,P8:R8,T8,A10:H10,J10:L10,N10:T10,A12:H12,J12:L12,N12:R12,T12,A14:C14,E14:H14,J14:N14,P14:T14,A16:H16,J16:L16,N16:T16,A18:H18,J18:L18,N18:R18,T18,A20:C20,E20:H20,J20:N20,P20:T20" _
        ).Select
        
        Range("P20").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("F1").Select
End Sub
 

[Alyson Ronnan Martins]

Boa noite @nat@gomes. Existe uma limitação para fazer um select por Range.

Para uma solução rápida divida o seu código:

Range("F3:P3,R3,T3:U3,F5:J5,L5:N5,P5:T5,F8,H8,J8,L8:N8,P8:R8,T8,A10:H10,J10:L10,N10:T10,A12:H12,J12:L12,N12:R12,T12,A14:C14,E14:H14,J14:N14,P14:T14").select
Selection.ClearContents
Range("A16:H16,J16:L16,N16:T16,A18:H18,J18:L18,N18:R18,T18,A20:C20,E20:H20,J20:N20,P20:T20").Select
Selection.ClearContents