Is there a shorter way than what I am using?


If Range("D116") = 0 Then 'Corrects some formulas in old quotes that are
'not compatable with Master5
Range("K121").Select
Selection.Copy
Range("D116").Select
Selection.PasteSpecial Paste:=xlFormulas
End If

If Range("D117") = 0 Then
Range("K122").Select
Selection.Copy
Range("D117").Select
Selection.PasteSpecial Paste:=xlFormulas
End If

If Range("D118") = 0 Then
Range("K123").Select
Selection.Copy
Range("D118").Select
Selection.PasteSpecial Paste:=xlFormulas
End If

If Range("C130") = 0 Then
Range("M123").Select
Selection.Copy
Range("C130").Select
Selection.PasteSpecial Paste:=xlFormulas
End If

If Range("C131") = 0 Then
Range("M124").Select
Selection.Copy
Range("C131").Select
Selection.PasteSpecial Paste:=xlFormulas
End If
If Range("C132") = 0 Then
Range("M125").Select
Selection.Copy
Range("C132").Select
Selection.PasteSpecial Paste:=xlFormulas
End If