Can someone enlightened me and help me I have a macro code here that supposed to consolidate all data from other worksheet to one worksheet. data will be from January to December worksheet and then combine to the combine worksheet. but the macro code seems not to be working, When I run the code nothing happens. Can someone help me on this. below is the code that I used. Any help would be greatly appreciated.

Sub Combine()'stop screen flicker
Application.ScreenUpdating = False
'dim the variables
Dim ws As Worksheet
Dim Addme As Range
Dim Copyto As Range
Dim CombineSort As Worksheet


'find the next row to add the data to
Set Addme = Sheet3.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
'clear all the values
Sheet3.Range("A9:Q10000").ClearContents
'loop through worksheets
For Each ws In Worksheets
'this is the range we will be copying
Set Copyto = ws.Range("A9:Q1000")
'use the code name in case sheet name changes
Select Case ws.CodeName
'exclude these sheets by code name
Case "Sheet1", "Sheet2", "Sheet3"
'Add the rest
Case Else
'sort the value in case a row is deleted
ws.Range("A9:Q10000").Sort Key1:=ws.Range("C9"), Order1:=xlAscending, Header:=xlGuess
'copy the range
Copyto.Copy
Addme.PasteSpecial xlPasteValues
End Select
'reset the next row
Set Addme = Sheet3.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Next ws
'sort the combined sheet
Set CombineSort = Sheet3
CombineSort.Range("A9:Q10000").Sort Key1:=CombineSort.Range("C9"), Order1:=xlAscending, Header:=xlGuess
Sheet3.Select
End Sub