お世話になります

Ａ列の結合を解除せずともMergeAreaというプロパティを参照すればデータを取得することが出来、下記のように計算することが出来ます

・下記の結果Ｃ列が40545.0416666667といったような数値になっている場合はＣ列のセルの書式で日時型に設定してください

・WITHは使っても使わなくてもかまいませんが、使っておくと使いまわしが楽になる場合があります

Option Explicit

Sub Macro1()
    Dim lastRow As Long
    Dim i As Long
    
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        lastRow = lastRow + .Cells(lastRow, "A").MergeArea.Count - 1
        For i = 2 To lastRow
            .Cells(i, "C") = .Cells(i, "A").MergeArea.Item(1).Value + .Cells(i, "B")
        Next i
    End With
End Sub

Ｂ列に必ず値が入っている場合には下記のようにも出来ます

Sub Macro2()
    Dim lastRow As Long
    Dim i As Long
    
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        For i = 2 To lastRow
            .Cells(i, "C") = .Cells(i, "A").MergeArea.Item(1).Value + .Cells(i, "B")
        Next i
    End With
End Sub