Enviar dados para outro arquivo de forma sequencial.

[emerson.ccb]

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