Append Column Data From Different Worksheets In Master Worksheet

I have tweaked this code in order to accomplish my requirement. I have in all 35 worksheets in a workbook. Out of 35 sheets, 31 worksheets are infact the 31 days of the month starting from 1st July to 31st July. What I want to do is copy and append all the rows in column A (starting from row 2) of all these 31 worksheets into one master worksheet. Basically, appending the rows in col A from all the worksheets together in master worksheet.


Sub append_master_sheet()

Dim wAppend As Worksheet, wSheet As Worksheet
Dim LastRow As Long

Set wAppend = Worksheets("Master")

For Each wSheet In Worksheets
If wSheet.Name wAppend.Name Then

LastRow = wAppend.Cells.Find(What:="*", After:=wAppend.Range("A2"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

wSheet.UsedRange.Copy Destination:=wAppend.Cells(LastRow, 1)

End If

Next wSheet

End Sub
This code when run gives me a Debug error "Object variable or with block variable not set". I did a research for this error on Google and most of the answers are in reference to using ADO Recordsets. I am not even distinctly using a Recordset in this example.