SouExcel, o excel as vezes nos surpreende, então lembrando que o Excel armazena de maneira diferente datas e horas, resolvi acrescentar uma linha formatando a Coluna antes, e o resultado foi positivo, faça os teste e qq coisa poste novamente:

Sub TOTALIZAR()
'Format a Coluna antes de buscar os Subtotais
Range("B:B").NumberFormat = "mm/dd/yy"

   Columns("A:C").Select
    Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(3), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True

End Sub

*PS: Ainda estou lhe devendo uma outra ajuda, mas logo te envio.

abraços