Sub calculate()
'
' calculate Macro
' Keyboard Shortcut: Ctrl l
' Application.ScreenUpdating = False
' Application.EnableEvents = False
'
Application.calculate
Sheets("log").Visible = True
Range("H3").Select
Selection.Copy
Sheets("Log").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Parcel OB").Select
Range("B18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Log").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Parcel OB").Select
Range("C18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Log").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Parcel OB").Select
Range("D18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Log").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Parcel OB").Select
Range("E18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Log").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Parcel OB").Select
Range("F18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Log").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Parcel OB").Select
Range("B21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Log").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Parcel OB").Select
Range("C21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Log").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Parcel OB").Select
Range("D21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Log").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Parcel OB").Select
Range("E21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Log").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Parcel OB").Select
Range("F21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Log").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Parcel OB").Select
Range("B23").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Log").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Parcel OB").Select
Range("C23").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Log").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Parcel OB").Select
Range("D23").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Log").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Parcel OB").Select
Range("E23").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Log").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Parcel OB").Select
Range("F23").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Log").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Parcel OB").Select
Range("B1").Select
Sheets("Log").Visible = False
'Application.ScreenUpdating = True
'Application.EnableEvents = True
End Sub
[code]