Range("B31") = Application.WorksheetFunction.EDate(mystart, 0) + 1
mystart = Range("B30")
For x = 31 To 100
    If mystart >= myend Then Exit For
    Cells(x, 2) = Application.WorksheetFunction.EDate(mystart, 0) + 1
    mystart = Cells(x, 2)

Next x

Range("C31") = mystartprice + Range("C27")
mystartprice = Range("C30")
    For y = 31 To 100
        If mystartprice >= myendprice Then Exit For
        Cells(y, 3) = mystartprice + Range("C27")
        mystartprice = Cells(y, 3)
    Next y

Range("E31") = Application.WorksheetFunction.EDate(mystart, 0) + 1
mystart = Range("E30")
For a = 31 To 100
    If mystart >= myend Then Exit For
    Cells(a, 5) = Application.WorksheetFunction.EDate(mystart, 0) + 1
    mystart = Cells(a, 5)
Next a

Range("F31") = mystartprice + Range("F27")
mystartprice = Range("F30")
    For b = 31 To 100
        If mystartprice >= myendprice Then Exit For
        Cells(b, 6) = mystartprice + Range("F27")
        mystartprice = Cells(b, 6)
    Next b

Range("H31") = Application.WorksheetFunction.EDate(mystart, 0) + 1
mystart = Range("H30")
For c = 31 To 100
    If mystart >= myend Then Exit For
    Cells(c, 8) = Application.WorksheetFunction.EDate(mystart, 0) + 1
    mystart = Cells(c, 8)
Next c

Range("I31") = mystartprice + Range("I27")
mystartprice = Range("I30")
    For d = 31 To 100
        If mystartprice >= myendprice Then Exit For
        Cells(d, 9) = mystartprice + Range("I27")
        mystartprice = Cells(d, 9)
    Next d

Range("K31") = Application.WorksheetFunction.EDate(mystart, 0) + 1
mystart = Range("K30")
For e = 31 To 100
    If mystart >= myend Then Exit For
    Cells(e, 11) = Application.WorksheetFunction.EDate(mystart, 0) + 1
    mystart = Cells(e, 11)
Next e

Range("L31") = mystartprice + Range("L27")
mystartprice = Range("L30")
    For f = 31 To 100
        If mystartprice >= myendprice Then Exit For
        Cells(f, 12) = mystartprice + Range("L27")
        mystartprice = Cells(f, 12)
    Next f

Range("N31") = Application.WorksheetFunction.EDate(mystart, 0) + 1
mystart = Range("N30")
For g = 31 To 100
    If mystart >= myend Then Exit For
    Cells(g, 14) = Application.WorksheetFunction.EDate(mystart, 0) + 1
    mystart = Cells(g, 14)
Next g

Range("O31") = mystartprice + Range("O27")
mystartprice = Range("O30")
    For h = 31 To 100
        If mystartprice >= myendprice Then Exit For
        Cells(h, 15) = mystartprice + Range("O27")
        mystartprice = Cells(h, 15)
    Next h