Copiar valores de uma pasta para outra na primeira linha vazia

[ESG]

Bom dia Prezados,

 

Estou tentando executar uma macro para que copie dados de uma pasta para outra, copiando para primeira linha vazia da pasta de destino.

As colunas de uso seriam de B6:H2005

B6 seria a coluna para colar na primeira linha vazia.

Segue abaixo para análise:

Sub Atualizar()
'
'
Dim wsOrigem As Worksheet
Dim wsDestino As Worksheet
Workbooks.Open Filename:="C:\Users\eduardo.galindo\Desktop\Cronoanálises Realizadas\Plano de Ação Digitação.xlsx"
Set wsOrigem = Workbooks("Plano de Ação Digitação.xlsx").Worksheets("Plano de Ação")
Set wsDestino = ThisWorkbook.Sheets("Plano de Ação")
With wsOrigem
Range("B6:H2005").Copy Destination:=wsDestino.Range("B6:H2005")
End With
Workbooks("Plano de Ação Digitação.xlsx").Close SaveChanges:=True
'
End Sub