1: 2: 3: 4: 5: 6:
Private Sub RunProcess() For i = 6 To WorksheetFunction.CountA(Range("A:A")) + 1 Range("F" & i) = Range("E" & i) - Range("D" & i) Range("J" & i) = Range("F" & i) / (17 / 24) Next i End Sub