If i = 1 Then

depreciationRate = 2 / usefulLife

remainingUsefulLife = usefulLife - i + 13

End If

depreciationExpense = bookValue * depreciationRate

If bookValue - depreciationExpense < salvageValue Then

depreciationExpense = bookValue - salvageValue

End If

This is a piece of VBA code that calculates DDB depreciation, change it so that it uses the vba worksheet DDB function to calculate depreciation for a set amount of years