How to create an error debug message if need. All help appreciated. Thanks

Sub Test2()
'
' Test2 Macro
'
'
Sheets("Query").Select
Range("Table_Query_from_MS_Access_Database[[#Headers],[IsMail]]").Select
Selection.AutoFilter
ActiveSheet.ListObjects("Table_Query_from_MS_Acces s_Database").Range. _
AutoFilter Field:=4, Criteria1:="=Yes", Operator:=xlOr, Criteria2:="="
Cells.Select
Selection.Copy
Sheets("Result").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Query").Select
Range("E6").Select
Application.CutCopyMode = False
Selection.AutoFilter
Sheets("Score_Analysis").Select
Columns("A:F").Select
Selection.Copy
Sheets("Test").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Score_Analysis").Select
Application.CutCopyMode = False
Columns("C:F").Select
ActiveWorkbook.Worksheets("Score_Analysis").ListOb jects("Score_Table").Sort. _
SortFields.Add Key:=Range("Score_Table[[#Headers],[Nature/ " & Chr(10) & "Mail]]"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Range("C500:F500").Select
Selection.AutoFill Destination:=Range("C2:F500"), Type:=xlFillDefault
Cells.Select
Cells.EntireRow.AutoFit
Range("A1").Select
End Sub