Code help to pull data into Combined tab

I don't believe the code above will do what I'm looking for, because the tab called combined is the only static tab. The tabs 01 thru 31 get replaced every month or time I have rerun it.

I did find this code online that pulls in all other tabs into combined and it works good, except it also pulls in tab 1 data, which I'm trying to avoid. Beside "Combined" the is "Sheet1", which I don't want to pull in. How do I change the code below to exclude both of these tab, or at least exclude the tab called "Sheet1"? Also, how put the code into a window properly?

[Code]

Sub Sample()
Dim wsInput As Worksheet, wsOutput As Worksheet
Dim rng As Range
Dim LRowO As Long, LRowI As Long

On Error GoTo Whoa

'~~> Set your Output Sheet
Set wsOutput = ThisWorkbook.Sheets("Combined")

'~~> Loop through all sheets
For Each wsInput In ThisWorkbook.Worksheets
'~~> Ensure that we ignore the output sheet
If wsInput.Name <> wsOutput.Name Then
'~~> Working with the input sheet
With wsInput
'~~> Get the last row of input sheet
LRowI = .Range("A" & .Rows.Count).End(xlUp).Row
'~~> Set your range for copying
Set rng = .Range("A2:K" & LRowI)
'~~> Copy your range
rng.Copy
'~~> Pasting data in the output sheet
With wsOutput
'~~> Get the next available row in output sheet for pasting
LRowO = .Range("A" & .Rows.Count).End(xlUp).Row + 1

'~~> Finally paste
.Range("A" & LRowO).PasteSpecial Paste:=xlPasteAllUsingSourceTheme, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
End With
End If
Next wsInput

Exit Sub
Whoa:
MsgBox Err.Description
End Sub