Copie as colunas até um limite

Question

Estou tentando dizer ao VBA para copiar todas as células da coluna "Data_FirstCoumn" até a coluna "Data_Boundary".

No entanto, o VBA continua emitindo um erro informando que "o método AutoPreencher da classe Range falhou".

Este é o meu código para fornecer contexto:

Sub Macro5()
Range("Data_FirstColumn").Select
Selection.AutoFill Destination:=Range("Data_Boundary"), Type:=xlFillDefault
Columns("Data_First:Data_Boundary").Select
End Sub

Obrigado

    

Answer 1

Considere:

Sub macro5()
    Range("A:A").Name = "Data_FirstColumn"
    Range("Z:Z").Name = "Data_Boundary"
    Range("Data_FirstColumn").Copy Range(Range("Data_FirstColumn"), Range("Data_Boundary"))
End Sub

    

Answer 2

Por seu erro - você precisa do destino para < strong> inclui a fonte . Experimente:

Range("Data_FirstColumn").AutoFill Destination:=Range("Data_FirstColumn:Data_Boundary"), Type:=xlFillDefault