Large VBA Loop - Sometimes crashes!

Perhaps:

Sub Sim_v2()
With Range("B302").Resize(18, 1)
    .Copy
    .Offset(0, 1).PasteSpecial
    .Offset(0, 2).Resize(, 10000).Value = .Offset(0, 1).Value
End With
End Sub

The paste to Column C includes formulas AND formats. The remaining columns get values only.
You can copy, paste, or assign values to cells directly (without selecting them). It's faster.