CopiaCola.txt

Sub chama_copia_e_cola_dados()

    cont_total = "Contagem Total"
    soma_dura_total = "Soma de Duração Total"
    
    If Not ActiveCell = "Soma de Duração" Then
    Do Until ActiveCell = cont_total
       Call copia_e_cola_dados
    Loop
    End If
    
    If ActiveCell = "Contagem Total" Then
        Selection.End(xlToLeft).Select
        ActiveCell.Offset(0, 1).Select
        Call copia_e_cola_dados
    End If
        
    Do Until ActiveCell = soma_dura_total
       Call copia_e_cola_dados
    Loop
        
        
End Sub


Sub copia_e_cola_dados()
'
'
'
'
'
'
    If ActiveCell = "Contagem" Then
        ActiveCell.Offset(1, 0).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets("Contagem Total").Select
        ActiveCell.PasteSpecial
        ActiveCell.Offset(0, 1).Select
        Sheets(1).Select
        ActiveCell.Offset(-1, 2).Select
     Else
        ActiveCell.Offset(1, 0).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets("Soma de Duração Total").Select
        ActiveCell.PasteSpecial
        ActiveCell.Offset(0, 1).Select
        Sheets(1).Select
        ActiveCell.Offset(-1, 2).Select
      End If
        
End Sub