问当我运行我的vba代码时，Excel进入“不响应”模式。这样可以吗？有办法消除这种情况吗？

EN

Option Explicit
Option Base 1
Private Sub CommandButton1_Click()
    Dim loadtypemax As Single, column As Single, row As Single
    Dim loadtype As String, number As String
    Dim loadcombosmax As Single

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    loadtypemax = ((Cells(Rows.count, "L").End(xlUp).row))
    loadcombosmax = ((Cells(Rows.count, "E").End(xlUp).row))

    column = 6
    For row = 2 To loadcombosmax
        If Cells(row, column) > 0 Then
            number = Cells(row, column)
            loadtype = Cells(row, (column - 2))

            If number = "" Then
            ElseIf number > 0 Then
                ActiveWorkbook.Worksheets("STAADloadtypes").Cells(number, 1) = "Load"
                ActiveWorkbook.Worksheets("STAADloadtypes").Cells(number, 2) =
                ActiveWorkbook.Worksheets("Load Cases").Cells(row, column).Value
                ActiveWorkbook.Worksheets("STAADloadtypes").Cells(number, 4) = "Title"
                ActiveWorkbook.Worksheets("STAADloadtypes").Cells(number, 5) =
                ActiveWorkbook.Worksheets("Load Cases").Cells(row, column - 4).Value
            End If

        ElseIf Cells(row, column) = "" Then
        End If

        If Cells(row, column) > 0 Then
            Call LRFD(loadtype, number, loadcombosmax)
        End If

    Next row
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

End Sub

Sub LRFD(loadtype As String, number As String, loadcombosmax As Single)
    Dim countrow As Single, countcolumn As Single, row As Single, column As Single


    Application.Calculation = xlCalculationManual
    Worksheets("STAADloadcombos").Activate

    countrow = ActiveWorkbook.Worksheets("LRFD").Cells(Rows.count,
    "A").End(xlUp).row
    countcolumn = (loadcombosmax - 1) * 2

    For row = 1 To countrow
        For column = 4 To countcolumn Step 2
            If loadtype = ActiveWorkbook.Worksheets("LRFD").Cells(row, column).Value
            Then
            Call STAADloadcombos(column, number, countrow, countcolumn, row)
        End If
    Next column
Next row

Application.Calculation = xlCalculationAutomatic

End Sub

Sub STAADloadcombos(column As Single, number As String, countrow As Single, countcolumn As Single, row As Single)
    Dim r As Integer, rowrow As Single, c As Integer
    Dim rr As Single

    Application.Calculation = xlCalculationManual

    r = row * 2
    rowrow = r - 1

    ActiveWorkbook.Worksheets("STAADloadcombos").Cells(rowrow, 3) =
    ActiveWorkbook.Worksheets("LRFD").Cells(row, 1).Value
    ActiveWorkbook.Worksheets("STAADloadcombos").Cells(rowrow, 2) =
    ActiveWorkbook.Worksheets("LRFD").Cells(row, 2).Value
    ActiveWorkbook.Worksheets("STAADloadcombos").Cells(rowrow, 1) = "Load Comb"

    For c = 1 To countcolumn Step 2
        If ActiveWorkbook.Worksheets("STAADloadcombos").Cells(r, c) = "" Then
            ActiveWorkbook.Worksheets("STAADloadcombos").Cells(r, c) = number
            c = countcolumn
        End If
    Next c

    For c = 2 To countcolumn Step 2
        If ActiveWorkbook.Worksheets("STAADloadcombos").Cells(r, c) = "" Then
            ActiveWorkbook.Worksheets("STAADloadcombos").Cells(r, c) =
            ActiveWorkbook.Worksheets("LRFD").Cells(row, column - 1).Value
            c = countcolumn
        End If
    Next c

    Application.Calculation = xlCalculationAutomatic

End Sub

Private Sub CommandButton2_Click()

    Worksheets("STAADloadcombos").Range("A1:BA500").ClearContents
    Worksheets("STAADloadtypes").Range("A1:BA500").ClearContents

End Sub