CalculaTotal.txt

Sub total()
'
'
'
'
'
    Do Until ActiveCell.Row > linha_selecionada
        
        Call seleciona_planilha
        Call soma_ou_media
        Call seleciona_planilha
        Rows("1:1").Select
        Selection.Delete Shift:=xlUp
        Sheets(1).Select
        ActiveCell.Offset(1, 0).Select
    Loop
    
    ActiveCell.Offset(-1, 1).Select
    Selection.End(xlUp).Select
    
    If ActiveCell = "MÉDIA" Then
        ActiveCell.Offset(2, 0).Select
    Else
        ActiveCell.Offset(1, 0).Select
    End If
    
    If ActiveCell <> Empty Then
        Call total
    End If
    
End Sub

Sub seleciona_planilha()
'
'
'
'
    If Selection.NumberFormat = "General" Then
        Sheets("Contagem Total").Select
    ElseIf ActiveCell.Offset(0, 1).NumberFormat = "@" Then Sheets("Soma de Duração Média").Select
    ElseIf Selection.NumberFormat = "[h]:mm:ss;@" Then Sheets("Soma de Duração Total").Select
    ElseIf Selection.NumberFormat = "0" Then Sheets("Contagem Total Média").Select
    
    End If
    
End Sub

Sub soma_ou_media()
'
'
'
'
    Dim rng As Range
    Dim azul As Long
    
    Set rng = Range("A1:Z1")
    azul = RGB(221, 235, 247)
    Sheets(1).Select
    
    If ActiveCell.Interior.Color = azul Then
        ActiveCell = WorksheetFunction.Sum(rng)
    Else: ActiveCell = WorksheetFunction.Average(rng)
    End If
    
End Sub