H
hoyos
Is there an easier way of writing this code?
Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Sheets("Sheet2").Range("j187").Copy
Sheets("Sheet2").Range("j188").PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Sheet2").Range("j192").Copy
Sheets("Sheet2").Range("j193").PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Sheet2").Range("k187").Copy
Sheets("Sheet2").Range("k188").PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Sheet2").Range("l187").Copy
Sheets("Sheet2").Range("l188").PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub
Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Sheets("Sheet2").Range("j187").Copy
Sheets("Sheet2").Range("j188").PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Sheet2").Range("j192").Copy
Sheets("Sheet2").Range("j193").PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Sheet2").Range("k187").Copy
Sheets("Sheet2").Range("k188").PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Sheet2").Range("l187").Copy
Sheets("Sheet2").Range("l188").PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub