Sub Edit_Columns()
Application.ScreenUpdating = False
Dim lngLastRow As Long
lngLastRow = Cells(Rows.Count, "d").End(xlUp).Row
Range("M6:M" & lngLastRow).Value = Evaluate("=F6:F" & lngLastRow & "+H6:H" & lngLastRow & "+K6:K" & lngLastRow)
Range("N6:N" & lngLastRow).Value = Evaluate("=G6:G" & lngLastRow & "+H6:H" & lngLastRow & "+I6:I" & lngLastRow)
Range("O6:O" & lngLastRow).Value = Evaluate("=M6:M" & lngLastRow & "-N6:N" & lngLastRow)
Range("P6:P" & lngLastRow).Value = Evaluate("=M6:M" & lngLastRow & "/N6:N" & lngLastRow & "-1")
Application.ScreenUpdating = True
End Sub