Visual Basic para Aplicaciones - macro para calcular total de horas trabajadas

Sub calcular_total()

    Dim vector() As Date

    Dim resta, total As Date

    Dim rango As Range

    Dim i, j As Long

    Dim Fcont, Ccont As Long

    Set rango = Selection

    Fcont = rango.Rows.Count 'limite superior de fila

    Ccont = rango.Columns.Count 'limite superior de columnas

    'valido para que el verctor tenga si o si 2 columnas

    If Ccont = 2 Then

        'dimensiono el vector

        ReDim vector(1 To Fcont, 1 To Ccont)

        'pasar los valores del rango a un array

        For i = 1 To Fcont

            For j = 1 To Ccont

                vector(i, j) = rango.Cells(i, j).Value

            Next

        Next

        For i = 1 To Fcont

            resta = vector(i, 2) - vector(i, 1)

            total = total + resta

        Next

        MsgBox "El total de horas es: " & Hour(total) & " Hrs. " & "y " & Minute(total) & " Min."

    Else

        MsgBox "Debe seleccionar las horas de inicio y final"

    End If

End Sub