VBA code to copy and paste data in one sheet from multiple sheet and loop through

I see the sheets for 2006-2013 are the same size, maybe this code:

Sub Button1_Click()
Dim ws As Worksheet, n%
For Each ws In ThisWorkbook.Sheets
    If ws.Name <> "allyears" Then
        n = n + 1
        With Sheets("allyears")
            .Range("A3").Offset(0, n).Value = ws.Name
            .Range("A4:A57").Offset(0, n).Value _
            = ws.Range("B11:B64").Value
        End With
    End If
Next ws
End Sub