Mapping Coupon Payments as a list for different bonds

There are no attempted formulae in your attachment. What is the EXACT formula you have been using so far?

That's not the formula - its a description of it. Please paste the EXACT formula into your next response (it should have been in the sample workbook for us to refer to).

Thanks - there is NO formula in the version I opened earlier!!!

I'll have a look at this one.

OK - this is not straightforward.

It is not a good idea to have manually entered data and formulae in the same column, so how can we overcome this?

Sorry - I'm not getting it at all. Someone else will get it, I am sure.

I don't know - I don't get what you are trying to do. You need to wait for someone else to have a look.

Sub Coupons()

Dim ws1 As Worksheet, ws2 As Worksheet
Dim arr

Application.ScreenUpdating = False

Set ws1 = Sheets("sheet2")
Set ws2 = Sheets("sheet3")
ar = ws1.[A1].CurrentRegion
hdr = Array("Security", "PMT", "Date", "Schedule", "Frequency")

ReDim arr(1 To 5, 1 To 1)
n = 0

For i = 2 To UBound(ar, 1)
    jj = ar(i, 5)
    freq = 12 / ar(i, 4)
    n = n + 1
    ReDim Preserve arr(1 To 5, 1 To n)
    arr(1, n) = ar(i, 1)
    arr(3, n) = ar(i, 2)
    arr(4, n) = "Maturity"
    arr(5, n) = ar(i, 4)
    cpndate = ar(i, 3)
    For j = 1 To jj
        n = n + 1
        ReDim Preserve arr(1 To 5, 1 To n)
        arr(1, n) = ar(i, 1)
        arr(3, n) = cpndate
        arr(4, n) = "Coupon " & j
        arr(5, n) = ar(i, 4)
        cpndate = WorksheetFunction.EDate(cpndate, freq)
    Next j
Next i

With ws2
    .[A1].CurrentRegion.ClearContents
    .[A1].Resize(1, 5) = hdr
    .[a2].Resize(n, 5) = Application.Transpose(arr)
End With

Application.ScreenUpdating = True


End Sub

output on Sheet3

Sub Coupons()

Dim ws1 As Worksheet, ws2 As Worksheet
Dim arr

Application.ScreenUpdating = False

Set ws1 = Sheets("Bond Schedule")
Set ws2 = Sheets("Coupon Timeline")
ar = ws1.[A1].CurrentRegion
hdr = Array("Security", "PMT", "Date")

ReDim arr(1 To 3, 1 To 1)
n = 0

For i = 2 To UBound(ar, 1)
    jj = ar(i, 5)
    freq = 12 / ar(i, 4)
    n = n + 1
    ReDim Preserve arr(1 To 3, 1 To n)
    arr(1, n) = ar(i, 1)
    arr(2, n) = ar(i, 7)
    arr(3, n) = ar(i, 2)
    cpndate = ar(i, 3)
    For j = 1 To jj
        n = n + 1
        ReDim Preserve arr(1 To 3, 1 To n)
        arr(1, n) = ar(i, 1)
        arr(2, n) = ar(i, 6)
        arr(3, n) = cpndate
        cpndate = WorksheetFunction.EDate(cpndate, freq)
    Next j
Next i

With ws2
    .[E1].CurrentRegion.ClearContents                ' <<<<   Change E1 to A1 for next 3 statements
    .[E1].Resize(1, 3) = hdr
    .[E2].Resize(n, 3) = Application.Transpose(arr)
End With

Application.ScreenUpdating = True


End Sub

Try

cpndate = Application.WorksheetFunction.EDate(cpndate, freq)

Your dates are TEXT not Excel dates.