My "do while" loop doesn't complete

[Tuneman12]

Right as my code gets to the line with the stars, it goes back to the top "Sub Calculate()" line. Anyone know whats up?

Sub Calculate()
    Dim x
    x = 0
    Do While x < 30
        Range(Cells(6, 3 + x), Cells(11, 3 + x)).Copy
        Sheets("Monte Carlo Sim").Select
        Range("B5").PasteSpecial Paste:=xlPasteValues
        Calculate****
        Range("DA40005").Copy
        Range("I40010").PasteSpecial Paste:=xlPasteValues
        Calculate
        Range("DA40005").Copy
        Range("I40011").PasteSpecial Paste:=xlPasteValues
        Range("B5").Value = Range("B5").Value + 1
        Calculate
        Range("DA40005").Copy
        Range("J40010").PasteSpecial Paste:=xlPasteValues
        Calculate
        Range("DA40005").Copy
        Range("J40011").PasteSpecial Paste:=xlPasteValues
        Range("K40013").Copy
        Worksheets("Main").Cells(19, 3 + x).PasteSpecial Paste:=xlPasteValues
        x = x + 2
    Loop
End Sub