.Range(.Cells(6, 39), .Cells(L, 39)).Select
Selection.Copy
.Cells(6, 39).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
For Each cel In .Range(.Cells(6, 40), .Cells(L, 40))
cel.Formula = "=($AQ6+$AV6+$AW6+$AX6)"
Next cel