This code works perfectly
Private Sub UserForm_Initialize()
Dim x As Range
Application.EnableEvents = False
Application.ScreenUpdating = False
Sheets("Budget").Select
For i = colnum + 1 To 54
Cells(30, i).Value = Cells(30, i - 1).Value - Cells(18, i).Value
If Cells(30, i)...