Pessoal boa tarde!
Coloquei a macro abaixo pra copiar os atendimentos de um arquivo para outro,
Porem sempre cola no mesmo lugar sobrepondo as informações anteriores,
como faço para sempre colar na proxima linha vazia.
segue macro:
Sub Copiar_Dados()
Dim wsOrigem As Worksheet
Dim wsDestino As Worksheet
'Arquivo Destino, abrimos primeiro
'Ajuste o caminho do mesmo
linha = Sheets("Atendimentos").Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Row + 1
'Arquivos e Abas de Origem e Destino
Set wsOrigem = Worksheets("Atendimentos")
Set wsDestino = Workbooks("Ind.Supervisor.xlsm").Worksheets("Atendimentos")
With wsOrigem
.Range("B10:B44").Copy Destination:=wsDestino.Range("B10")
.Range("C10:C44").Copy Destination:=wsDestino.Range("C10")
.Range("D10:D44").Copy Destination:=wsDestino.Range("D10")
.Range("E10:E44").Copy Destination:=wsDestino.Range("E10")
.Range("F10:F44").Copy Destination:=wsDestino.Range("F10")
.Range("G10:G44").Copy Destination:=wsDestino.Range("G10")
ContLinha = ContLinha + 1
End With
'Fecha o Arquivo Destino e Salva
Workbooks("Ind.Supervisor.xlsm").Save
MsgBox "Envio de Dados Concluído"
End Sub