Calculation using VBA

Try this code:

Sub ArrangeTables()
Dim Lr1&, Lr2, Ta&, Tb&, X&
Dim A, B

With Sheets("Sheet1")
Lr1 = .Range("A2").End(xlDown).Row: Lr2 = .Range("A14").End(xlDown).Row
A = .Range("A2:D" & Lr1): B = .Range("A15:C" & Lr2).Resize(, 7)

For Ta = 1 To UBound(B, 1)
B(Ta, 6) = B(Ta, 3): B(Ta, 3) = ""
Next Ta
End With

With Sheets("Sheet2")
.Activate
    With .Range("A4")
    .CurrentRegion.Resize(, 7).Clear
    .Resize(UBound(A, 1), 4) = A
    .End(xlDown).Offset(1, 0).Resize(UBound(B, 1), 7) = B
        With .CurrentRegion.Resize(, 7)
        .Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo
        .Columns(5).Formula = "=A5-A4"
        End With
    .End(xlDown).Offset(0, 4) = ""
    End With
For Tb = 5 To .Range("A4").End(xlDown).Row
If .Range("F" & Tb) = "" Then .Range("F" & Tb) = .Range("F" & Tb - 1)
Next Tb
End With

End Sub

Dates in Sheet1 and 'interest journal' were not matching. I have corrected the mistakes.

Code modified.

Sub ArrangeTables()
Dim Lr1&, Lr2, Ta&, Tb&, X&
Dim A, B

With Sheets("Sheet1")
Lr1 = .Range("A2").End(xlDown).Row: Lr2 = .Range("A14").End(xlDown).Row
A = .Range("A2:D" & Lr1): B = .Range("A15:C" & Lr2).Resize(, 7)

For Ta = 1 To UBound(B, 1)
B(Ta, 6) = B(Ta, 3): B(Ta, 3) = ""
Next Ta
End With

With Sheets("Sheet2")
.Activate
    With .Range("A4")
    .CurrentRegion.Resize(, 7).Clear
    .Resize(UBound(A, 1), 4) = A
    .End(xlDown).Offset(1, 0).Resize(UBound(B, 1), 7) = B
        With .CurrentRegion.Resize(, 7)
        .Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo
        .Columns(5).Formula = "=A5-A4"
        .Columns(7).Formula = "=D4*(E4/365)*F4/100"
        .Columns(7).NumberFormat = "0.00"
        End With
    .End(xlDown).Offset(0, 4) = ""
    End With
For Tb = 5 To .Range("A4").End(xlDown).Row
If .Range("F" & Tb) = "" Then .Range("F" & Tb) = .Range("F" & Tb - 1)
Next Tb
End With

End Sub