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

Hi

What you mean by "an error debug message "
In case of an error, excel will create the appropiate message itself.

But probably you don't want that message, but rather one you create yourself. That's called error handling, and can become quite tricky. Usually you should write the code the way to avoid errors taking in consideration which errors possibly might come up during runtime.