Somando uma relação de tempo

[Rafael P.C]

Boa tarde pessoal,

Estou com um dilema me martelando estou tentando fazer um calculo de soma de tempo em VBA mais não estou conseguindo. Por exemplo, na coluna A1 até A19 eu tenho uma relação de tempo em cada célula “Ex. A1 = 00:01:25, A2 = 00:04:25, A3 = 00:02:35” eu gostaria de somar este intervalo . Ágüem pode me ajudar? Abaixo eu fiz um script mais não rolo.

Sub a()
Dim DAT1, DAT2, DATA
    Range("a1").Select
    Do While IsEmpty(ActiveCell.Offset(0, 0)) = False

        DAT1 = ActiveCell
        DAT2 = (DAT2 + DAT1)
        
        ActiveCell.Offset(1, 0).Select
        
        

    Loop
    

    DATA = (DAT2)
    
      
    


MsgBox DATA

End Sub

[Rafael P.C]

Já consegui pessoal segue abaixo o script. O segredo esta em determinar a variável como data.

Sub a()
Dim DAT1, DAT2, DATA
    Range("a1").Select
    Do While IsEmpty(ActiveCell.Offset(0, 0)) = False

        DAT1 = CDate(ActiveCell)
        DAT2 = (CDate(DAT2) + CDate(DAT1))
        
        ActiveCell.Offset(1, 0).Select
        
        

    Loop
    

    DATA = CDate(DAT2)
    
      
    


MsgBox DATA

End Sub