Visual Basic for Applications (VBA) Source Code From a Options Model I Programmed - 2

Sub DoWloop()
Dim count As Double
Dim lNum As Long
count = 39085
lNum = 0

Do While ActiveCell.Value = lCount
    ActiveCell.Offset(1, 0).Select
    lNum = lNum + 1
Loop

MsgBox "The Do While Loop made " & lNum & " loop(s)"

End Sub

Sub Donkey()

Dim R As Range, startCell As Range
Dim firstAddress As String
Dim FoundCell As Range
Dim i As Long

Set R = Range("EEM_CALLS_quotedate")
Set startCell = R.Cells(1)
Do

Set FoundCell = R.find(what:="1/3/2007", _
        After:=startCell, _
        LookIn:=xlValues, LookAt:=xlPart, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, _
        MatchCase:=False)
If FoundCell Is Nothing Then Exit Do
If i = 0 Then

firstAddress = FoundCell.Address
Else

If FoundCell.Address = firstAddress Then Exit Do

End If
i = i + 1
    Set startCell = FoundCell
Loop

MsgBox i & " found"
End Sub



-------------------------------------

Function hat(ETFprice As Currency, callInt As Variant, Dont As Integer)
Dim cat, glass, house, rat As Integer
If Dont = 1 Then
    hat = 0
    Exit Function
End If

rat = Application.WorksheetFunction.RoundDown(ETFprice, 0) + Application.WorksheetFunction.RoundDown((callInt / 100) * ETFprice, 0)

cat = Application.WorksheetFunction.RoundDown(rat, 0)

house = rat - glass
glass = Application.WorksheetFunction.Trim(Right(cat, 1))




Select Case glass
    Case 0, 1, 2, 3
        hat = house - glass
    Case 4
        hat = house + 1
    Case 5
        hat = (house)
    Case 6
        hat = house - 1
    Case 7
        hat = house - 2
    Case 8
        hat = house - 3
    Case 9
        hat = (house) + 1
End Select


End Function


-------------------------------------

Function CallsSold(Dss As Single)
CallsSold = Application.WorksheetFunction.RoundDown(Dss / 100, 0)


End Function
Sub watch()

Find_Range(39101, Range("EEM_CALL_Table")).Select


End Sub

Function Find_Range(Find_Item As Variant, _
    Search_Range As Range, _
    Optional LookIn As Variant, _
    Optional LookAt As Variant, _
    Optional MatchCase As Boolean) As Range
   
    Dim c As Range
    If IsMissing(LookIn) Then LookIn = xlValues 'xlFormulas
    If IsMissing(LookAt) Then LookAt = xlPart 'xlWhole
    If IsMissing(MatchCase) Then MatchCase = False
   
    With Search_Range
        Set c = .find( _
        what:=Find_Item, _
        LookIn:=LookIn, _
        LookAt:=LookAt, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, _
        MatchCase:=MatchCase, _
        SearchFormat:=False)
        If Not c Is Nothing Then
            Set Find_Range = c
            firstAddress = c.Address
            Do
                Set Find_Range = Union(Find_Range, c)
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
   
End Function


Sub Donkey()

Dim R As Range, startCell, firstCell, Z, sstartCell, ffirstCell As Range
Dim firstAddress, fAddress, ffirstAddress, ffAddress As String
Dim FoundCell, ffoundCell As Range
Dim i, j As Long
Dim cob, bar, ccob, bbar As String

Set R = Range("EEM_CALLS_quotedate")
Set startCell = R.Cells(1)

Do

Set FoundCell = R.find(what:="39090.00", _
        After:=startCell, _
        LookIn:=xlValues, LookAt:=xlPart, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, _
        MatchCase:=False)
fAddress = ActiveCell.Address(False, False)
If FoundCell Is Nothing Then Exit Do
If i = 0 Then

firstAddress = FoundCell.Address
Else

If FoundCell.Address = firstAddress Then Exit Do

End If
i = i + 1
    Set startCell = FoundCell
    fAddress = ActiveCell.Address
Loop


cob = Application.WorksheetFunction.Trim(Mid(firstAddress, 4))



MsgBox i & " found" & vbCrLf & firstAddress & vbCrLf & cob & vbCrLf

End Sub




-------------------------------------

Sub FindDateInRange()
'
Dim SearchRange As Range
Dim dDate As Date
Dim i, j As Long
Dim cell As Range
Dim lCount, lNum As Long
Dim cellAddrss As String

dDate = "1/3/2007"
Set SearchRange = Range("h1:h40000")
i = Application.Match(CLng(dDate), SearchRange, 0)
If Not IsError(i) Then
    Set cell = SearchRange(i)
    cellAddrss = cell.Address
Else
    MsgBox "No match found"
End If

j = 1
FinalRow = Cells(Rows.count, 1).End(xlUp).Row
Do While Sheet5.Cells(j, 1) <> ""
ActiveCell.Select
j = j + 1
Loop

MsgBox cellAddrss

End Sub

Sub Looper()
Dim cellAddrss, cellValu, cell2Value As Variant
Dim rng As Range

Range("h2").Select


j = 1
Do While Sheet5.Cells(j, 1) <> ""
ActiveCell.Offset(1, 0).Select
cellAddrss = ActiveCell.Address

If ActiveCell.Value = cellValu + 1 Then GoTo Out
cellValu = ActiveCell.Value
j = j + 1
Loop

Out:
ActiveCell.Offset(-1, 0).Select
End Sub

Sub FindCatOtherSheet()

Dim rFound As Range


Set rFound = .Columns(8).find(what:="39099.00", After:=.Cells(1, 1), LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

On Error GoTo 0

If Not rFound Is Nothing Then Application.GoTo rFound, True

End With

End Sub

Sub CycleThrough()
Dim Counter As Integer
Dim Origin As String
Dim BigNum, colNum, BigReduction As Integer
Dim rng, finalRange As Range
Dim ii As Integer
Dim e, output As String

On Error GoTo what
step = InputBox("What is your vertical step?", DefaultValue, 100, 100)
BigNum = InputBox("How many loops?,How Many Times?", DefaultValue = 100, 100, 100)

Set rng = Application.InputBox(prompt:="What is your range?", Type:=8)
If rng Is Nothing Then
MsgBox "Operation Cancelled"
Else
rng.Select
End If
GoTo move

what:

Exit Sub
move:
ii = 0
finalRange = Cells(Rows.count, 1).End(xlUp).Row
BigReduction = BigNum
For Counter = 1 To BigReduction
BigNum = BigNum + step

ActiveCell.Value = output
ActiveCell.Offset(step, 0).Range("a1").Select

If MsgBox("Stop Macro?", vbYesNo) = vbYes Then GoTo what


Next Counter

End Sub


-------------------------------------

Sub GetPortfolioValue()

Dim strName As String

    strName = InputBox(prompt:="What is the portfolio's starting value?", _
          Title:="Enter Portfolio's Starting Value", Default:="1,000,000")

        If strName = "Your Name here" Or _
           strName = vbNullString Then

           Exit Sub

        Else

          portfolio_value_t0_txt.Value = strName

End If
End Sub



-------------------------------------

Function Split(beginW As Single)
Dim intm As Single

If beginW < 0.001 Or beginW = "" Or beginW = 0 Then
intm = 0
Else
intm = beginW - Application.WorksheetFunction.RoundDown(beginW, 0)
End If

Split = intm



End Function

-------------------------------------

Function hatPut(ETFprice As Currency, callInt As Variant, Dont As Integer)
Dim cat, glass, house, rat As Integer

If Dont = 1 Then
    hatPut = 0
    Exit Function
End If

rat = Application.WorksheetFunction.RoundDown(ETFprice, 0) - Application.WorksheetFunction.RoundDown((callInt / 100) * ETFprice, 0)

cat = Application.WorksheetFunction.RoundDown(rat, 0)
glass = Application.WorksheetFunction.Trim(Right(cat, 1))
house = rat - glass



Select Case glass
    Case 0, 1, 2, 3
        hatPut = (cat - glass)
    Case 4, 5, 6, 7, 8
        hatPut = (cat - glass) + 5
    Case 9
        hatPut = cat + 1
End Select



End Function
Sub Macro8()
'
' Macro8 Macro
Dim count, val As Integer


count = 1
For i = 1 To 500
count = count + 1
ActiveCell.Value = ""
ActiveCell.Offset(29, 0).Select
Next i


End Sub


-------------------------------------

Sub InsertBgInterval()
 Select Case IndividualPeriodsForm.start_int_cmbo.Value
        Case "T1"
            port = Range("f13").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("f5").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("f6").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("f7").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("f8").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("f9").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("f10").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("f11").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
         Case "T2"
            port = Range("y13").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e23").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e24").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e25").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e26").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e27").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e28").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e29").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T3"
            port = Range("v31").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e36").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e37").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e38").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e39").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e40").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e41").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e42").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T4"
            port = Range("v44").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e49").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e50").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e51").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e52").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e53").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e54").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e55").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T5"
            port = Range("v57").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e62").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e63").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e64").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e65").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e66").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e67").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e68").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T6"
            port = Range("v70").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e75").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e76").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e77").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e78").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e79").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e80").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e81").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T7"
            port = Range("v83").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e88").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e89").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e90").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e91").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e92").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e93").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e94").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T8"
            port = Range("v96").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e101").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e102").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e103").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e104").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e105").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e106").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e107").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T9"
            port = Range("v109").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e114").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e115").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e116").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e117").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e118").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e119").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e120").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T10"
            port = Range("v122").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e127").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e128").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e129").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e130").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e131").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e132").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e133").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T11"
            port = Range("v135").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e140").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e141").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e142").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e143").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e144").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e145").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e146").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T12"
            port = Range("v148").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e153").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e154").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e155").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e156").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e157").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e158").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e159").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T13"
            port = Range("v161").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e166").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e167").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e168").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e169").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e170").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e171").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e172").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T14"
            port = Range("v174").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e179").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e180").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e181").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e182").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e183").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e184").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e185").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T15"
            port = Range("v187").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e192").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e193").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e194").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e195").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e196").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e197").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e198").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T16"
            port = Range("v200").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e203").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e204").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e205").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e206").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e207").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e208").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e209").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T17"
            port = Range("v213").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e218").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e219").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e219").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e220").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e221").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e222").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e223").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T18"
            port = Range("v226").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e231").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e232").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e233").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e234").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e235").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e236").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e237").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T19"
            port = Range("v239").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e244").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e245").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e246").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e247").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e248").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e249").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e250").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T20"
            port = Range("v252").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e257").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e258").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e259").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e260").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e261").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e262").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e263").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T21"
            port = Range("v265").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e270").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e271").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e272").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e273").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e274").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e275").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e276").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T22"
            port = Range("v278").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e283").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e284").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e285").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e286").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e287").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e288").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e289").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T23"
            port = Range("v291").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e296").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e297").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e298").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e299").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e300").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e301").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e302").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T24"
            port = Range("v304").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e309").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e310").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e311").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e312").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e313").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e314").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e315").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T25"
            port = Range("v317").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e322").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e323").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e324").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e325").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e326").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e327").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e328").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T26"
            port = Range("v330").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e335").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e336").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e337").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e338").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e339").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e340").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e341").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T27"
            port = Range("v343").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e348").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e349").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e350").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e351").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e352").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e353").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e354").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T28"
            port = Range("v356").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e361").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e362").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e363").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e364").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e365").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e366").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e367").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T29"
            port = Range("v369").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e374").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e375").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e376").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e377").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e378").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e379").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e380").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T30"
            port = Range("v382").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e387").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e388").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e389").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e390").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e391").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e392").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e393").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T31"
            port = Range("v395").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e400").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e401").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e402").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e403").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e404").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e405").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e406").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T32"
            port = Range("v408").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e413").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e414").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e415").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e416").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e417").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e418").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e419").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T33"
            port = Range("v421").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e426").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e427").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e428").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e429").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e430").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e431").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e432").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T34"
            port = Range("v434").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e439").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e340").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e441").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e442").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e443").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e444").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e445").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T35"
            port = Range("v447").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e452").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e453").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e454").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e455").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e456").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e457").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e458").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)

    End Select


End Sub

-------------------------------------

Sub InsertNdInterval()
Select Case end_int_cmbo.Value
         Case "T2"
            port = Range("y13").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e23").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e24").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e25").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e26").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e27").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e28").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e29").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T3"
            port = Range("v31").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e36").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e37").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e38").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e39").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e40").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e41").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e42").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T4"
            port = Range("v44").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e49").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e50").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e51").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e52").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e53").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e54").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e55").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T5"
            port = Range("v57").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e62").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e63").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e64").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e65").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e66").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e67").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e68").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T6"
            port = Range("v70").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e75").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e76").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e77").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e78").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e79").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e80").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e81").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T7"
            port = Range("v83").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e88").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e89").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e90").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e91").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e92").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e93").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e94").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T8"
            port = Range("v96").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e101").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e102").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e103").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e104").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e105").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e106").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e107").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T9"
            port = Range("v109").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e114").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e115").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e116").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e117").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e118").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e119").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e120").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T10"
            port = Range("v122").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e127").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e128").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e129").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e130").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e131").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e132").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e133").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T11"
            port = Range("v135").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e140").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e141").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e142").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e143").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e144").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e145").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e146").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T12"
            port = Range("v148").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e153").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e154").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e155").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e156").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e157").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e158").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e159").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T13"
            port = Range("v161").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e166").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e167").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e168").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e169").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e170").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e171").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e172").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T14"
            port = Range("v174").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e179").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e180").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e181").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e182").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e183").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e184").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e185").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T15"
            port = Range("v187").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e192").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e193").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e194").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e195").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e196").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e197").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e198").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T16"
            port = Range("v200").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e203").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e204").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e205").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e206").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e207").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e208").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e209").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T17"
            port = Range("v213").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e218").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e219").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e219").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e220").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e221").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e222").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e223").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T18"
            port = Range("v226").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e231").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e232").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e233").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e234").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e235").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e236").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e237").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T19"
            port = Range("v239").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e244").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e245").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e246").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e247").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e248").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e249").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e250").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T20"
            port = Range("v252").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e257").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e258").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e259").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e260").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e261").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e262").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e263").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T21"
            port = Range("v265").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e270").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e271").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e272").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e273").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e274").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e275").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e276").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T22"
            port = Range("v278").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e283").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e284").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e285").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e286").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e287").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e288").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e289").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T23"
            port = Range("v291").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e296").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e297").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e298").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e299").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e300").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e301").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e302").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T24"
            port = Range("v304").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e309").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e310").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e311").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e312").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e313").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e314").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e315").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T25"
            port = Range("v317").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e322").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e323").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e324").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e325").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e326").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e327").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e328").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T26"
            port = Range("v330").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e335").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e336").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e337").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e338").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e339").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e340").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e341").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T27"
            port = Range("v343").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e348").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e349").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e350").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e351").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e352").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e353").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e354").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T28"
            port = Range("v356").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e361").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e362").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e363").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e364").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e365").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e366").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e367").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T29"
            port = Range("v369").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e374").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e375").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e376").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e377").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e378").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e379").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e380").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T30"
            port = Range("v382").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e387").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e388").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e389").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e390").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e391").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e392").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e393").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T31"
            port = Range("v395").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e400").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e401").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e402").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e403").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e404").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e405").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e406").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T32"
            port = Range("v408").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e413").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e414").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e415").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e416").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e417").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e418").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e419").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T33"
            port = Range("v421").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e426").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e427").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e428").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e429").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e430").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e431").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e432").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T34"
            port = Range("v434").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e439").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e340").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e441").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e442").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e443").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e444").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e445").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T35"
            port = Range("v447").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e452").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e453").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e454").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e455").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e456").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e457").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e458").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
        Case "T36"
            port = Range("v447").Value
            bg_dbc_st = CSng(DBC_interval_w8_start.Value)
            md_dbc_st = port * (bg_dbc_st / 100)
            Range("e465").Value = Application.WorksheetFunction.RoundDown(md_dbc_st, 2)
            bg_eem_st = CSng(EEM_interval_w8_start.Value)
            md_eem_st = port * (bg_eem_st / 100)
            Range("e466").Value = Application.WorksheetFunction.RoundDown(md_eem_st, 2)
            bg_efa_st = CSng(EFA_interval_w8_start.Value)
            md_efa_st = port * (bg_efa_st / 100)
            Range("e467").Value = Application.WorksheetFunction.RoundDown(md_efa_st, 2)
            bg_iwm_st = CSng(IWM_interval_w8_start.Value)
            md_iwm_st = port * (bg_iwm_st / 100)
            Range("e468").Value = Application.WorksheetFunction.RoundDown(md_iwm_st, 2)
            bg_iyr_st = CSng(IYR_interval_w8_start.Value)
            md_iyr_st = port * (bg_iyr_st / 100)
            Range("e469").Value = Application.WorksheetFunction.RoundDown(md_iyr_st, 2)
            bg_mdy_st = CSng(MDY_interval_w8_start.Value)
            md_mdy_st = port * (bg_mdy_st / 100)
            Range("e470").Value = Application.WorksheetFunction.RoundDown(md_mdy_st, 2)
            bg_spy_st = CSng(SPY_interval_w8_start.Value)
            md_spy_st = port * (bg_spy_st / 100)
            Range("e471").Value = Application.WorksheetFunction.RoundDown(md_spy_st, 2)
    End Select


End Sub

-------------------------------------

Function pricer(bWeight As Variant, Called As String, putem As String, Qsold As Integer, pStrike As Currency, cStrike As Currency, etfEndPrice As Currency, grnFraction As Currency, grnPremium As Currency)
Dim beginW, Qs As Integer
Dim cld, ptem As String
Dim CStri, Pstri, endPrice, grownPremium, grownFraction As Currency
Dim output As Variant
grownPremium = grnPremium
grownFraction = grnFraction
Qs = Qsold
cld = Called
ptem = putem
CStri = cStrike
Pstri = pStrike
beginW = bWeight
endPrice = etfEndPrice
If endPrice > CStri Then
pricer = (100 * (CStri * Qs)) + grownPremium + grownFraction
ElseIf endPrice < Pstri Then
pricer = (100 * (endPrice * Qs)) + grownPremium + grownFraction
Else
pricer = (beginW * endPrice) + grownPremium + grownFraction
End If




End Function
Sub CycleThrough()
    Dim Counter As Integer
    Dim Origin As String
    Dim BigNum, colNum, BigReduction As Integer
    Dim rng As Range
    Application.ScreenUpdating = False
    step = InputBox("What is your vertical step?", DefaultValue, 100, 100)
    BigNum = InputBox("How many loops?,How Many Times?", DefaultValue = 100, 100, 100)
    BigReduction = BigNum
    Set rng = Application.InputBox(prompt:="What is your range?", Type:=8)
    If rng Is Nothing Then
        MsgBox "Operation Cancelled"
    Else
    rng.Select
    End If
    GoTo move
 
what:
Application.ScreenUpdating = True
Exit Sub
move:
BigReduction = BigNum
        For Counter = 1 To BigReduction
            BigNum = BigNum + step
         
            ActiveCell.Offset(0, 0).Range("a1").Select
            Selection.Copy
            Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(50, 0)).Select
            ActiveSheet.Paste
            ActiveCell.Offset(step, 0).Range("a1").Select
            ActiveCell.Offset(step, 0).Range("a1").Select
         
               
                     
    Next Counter
Application.ScreenUpdating = True
End Sub


-------------------------------------