Activity Based Depreciation If /Then VBA Code

[Excel Fox]

Thanks mrmmickle for sharing this.

For the Sub EnterData_Click, you could write it this way

Private Sub EnterData_Click()    
    Dim ws As Worksheet
    Set ws = Worksheets(2)


   'Insert Year Headers
   ws.Cells(14, 3).Resize(6).Formula = "=IF(D14="""", """", ""Year ""&ROW()-13)"
   
   'Insert Hourly Rate
   ws.Cells(14, 5).Resize(6).Formula = "=$D$10"
   
   'Insert Depreciation Rate
   ws.Cells(14, 6).Resize(6).Formula = "=D14*E14"
   
   'Insert Accumulated Depreciation
   ws.Cells(14, 7).Resize(2).Formula = "=$F$14"
   ws.Cells(16, 7).Resize(4).Formula = "=G15+F16"
   
   'New Value
   ws.Cells(14, 8).Resize(2).Formula = "=$D$5-F14"
   ws.Cells(16, 8).Resize(4).Formula = "=H15-F16"
   
End Sub