Help creating vba code

[sofas]

Hello everyone, I tried to create this code, but it is very slow. Can someone help me to solve this problem. Thank you

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim d As Variant
Dim f As Variant
Dim e As Integer
e = d + f
For d = 4 To 99
For f = 100 To 1000 Step 100
Cells(d, 1).Value = Val(Cells(d, 3).Value - Cells(d, 2).Value + Cells(d - 1, 1).Value)
Cells(d, 12).Value = Val(Cells(d, 11).Value * Cells(d, 10).Value)
Cells(d, 14).Value = Val(Cells(d, 13).Value * Cells(d, 10).Value)
Cells(d, 10).Value = Val(Cells(d, 9).Value * Cells(d, 8).Value)
Cells(d + f - 3, 1).Value = Val(Cells(d + f - 3, 3).Value - Cells(d + f - 3, 2).Value + Cells(d + f - 4, 1).Value)
Cells(d + f - 3, 12).Value = Val(Cells(d + f - 3, 11).Value * Cells(d + f - 3, 10).Value)
Cells(d + f - 3, 14).Value = Val(Cells(d + f - 3, 13).Value * Cells(d + f - 3, 10).Value)
Cells(d + f - 3, 10).Value = Val(Cells(d + f - 3, 9).Value * Cells(d + f - 3, 8).Value)
Next
Next
Application.ScreenUpdating = True
End Sub

 

[johnnyL]

Does the code do what you want it to?
What does 'slow' mean to you? How long does it take?

 

[sofas]

Does the code do what you want it to?
What does 'slow' mean to you? How long does it take?

Yes, somewhat slow, about 40 seconds or a little more

 

[johnnyL]

Test the following on a copy of your workbook:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
    Application.ScreenUpdating = False
'
    Dim e As Integer
    Dim LastRowInSheet  As Long
    Dim d As Variant
    Dim f As Variant
    Dim InputArray      As Variant
'
    LastRowInSheet = Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
'
    InputArray = Range("A1:N" & LastRowInSheet)                                                             ' Load data from sheet into 2D 1 Based InputArray
'
    e = d + f
'
    For d = 4 To 99
        For f = 100 To 1000 Step 100
             InputArray(d, 1) = InputArray(d, 3) - InputArray(d, 2) + InputArray(d - 1, 1)
            InputArray(d, 12) = InputArray(d, 11) * InputArray(d, 10)
            InputArray(d, 14) = InputArray(d, 13) * InputArray(d, 10)
            InputArray(d, 10) = InputArray(d, 9) * InputArray(d, 8)
'
             InputArray(d + f - 3, 1) = InputArray(d + f - 3, 3) - InputArray(d + f - 3, 2) + InputArray(d + f - 4, 1)
            InputArray(d + f - 3, 12) = InputArray(d + f - 3, 11) * InputArray(d + f - 3, 10)
            InputArray(d + f - 3, 14) = InputArray(d + f - 3, 13) * InputArray(d + f - 3, 10)
            InputArray(d + f - 3, 10) = InputArray(d + f - 3, 9) * InputArray(d + f - 3, 8)
        Next
    Next
'
    Range("A1:N" & LastRowInSheet) = InputArray                                                             ' Load 2D 1 Based InputArray back to the sheet
'
    Application.ScreenUpdating = True
End Sub