Experimente:
Range("A1:C" & Range("D5")).Select

Tá acusando erro em tempo de execução 1004

Erro de definição de aplicativo ou de definição de objeto.

Segue o arquivo em anexo...

ve se te ajuda

Sub Macro1()

rang = "A1:C" & Range("D5").Value2

Sheets("Plan2").Range(rang).Value = Range(rang).Value

End Sub

Funcionou como eu precisava.

Muito obrigado!

Para constar, o erro não era pela maneira que passei, mas sim após selecionar a sheet 2.

Seu codigo pode ser utilizado assim:

Sub Macro1()
  Range("A1:C" & Range("D5")).Copy (Sheets("Plan2").Range("A1"))
    Application.CutCopyMode = False
End Sub

Obrigado RLM pela sua ajuda!

Pessoal quero dar uma incrementada no que estou fazendo e agora estou precisando copiar não mais em outra planilha, mas sim em outra pasta de trabalho, a "nova"

Encontrei esse código a seguir que faz o que estou precisando, porém ele é pra copiar as células B1 e B2 da Plan1. Tentei aplicar os códigos acima citados pra tornar o intervalo de seleção uma variável mas não consegui.

Alguém pode ajudar?

Desde já, obrigado.

Private Sub teste()
Dim itemNome As String
Dim itemPreço As String
Dim myData As Workbook

Worksheets("Plan1").Select
itemNome = Range("b1")
Worksheets("Plan1").Select
itemPreço = Range("b2")

Set myData = Workbooks.Open("C:PROGEPtestenova.xlsx")
Worksheets("Plan1").Select
Worksheets("Plan1").Range("a1").Select
RowCount = Worksheets("Plan1").Range("a1").CurrentRegion.Rows.Count
With Worksheets("Plan1").Range("a1")
.Offset(RowCount, 0) = itemNome
.Offset(RowCount, 1) = itemPreço
End With
myData.Save
End Sub