Sub Calculation()
Application.ScreenUpdating = False
Sheets("LMV_product_Database").Select
ActiveSheet.Unprotect "261191"
Range("B1:B20000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("H1"), Unique:=True
Range("H2:H1000").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("C1:C20000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("I1"), Unique:=True
Range("I2:I1000").Select
Selection.Sort Key1:=Range("I2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("D1:D20000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("J1"), Unique:=True
Range("J2:J100").Select
Selection.Sort Key1:=Range("J2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Application.ScreenUpdating = False
ActiveSheet.Protect "261191"
Application.ScreenUpdating = True
Sheets("Calculation").Select
Range("A1").Select
End Sub