I've cleaned up the code to this. Does this look right?
Sub Rectangle2_Click()
'
Range("D12:F13").Copy
Range("AC3:AE4").Select
ActiveSheet.Paste
Range("AE2").Select
Application.CutCopyMode = False
Selection.Copy
Range("AG2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AG6:AH1941").Select
Application.CutCopyMode = False
Selection.Copy
Range("L7:M7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("L7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
Range("D7:F7").ClearContents
Range("D8:F8").ClearContents
Range("D9").ClearContents
Range("F9").ClearContents
Range("D12:F12").ClearContents
Range("D13:F13").ClearContents
Range("I3").Select
End Sub