Is it what you need?
Sub StatePIPData()
Dim sheet_name As Range
Dim sh As Worksheet
For Each sheet_name In ThisWorkbook.Worksheets("WS").Range("A:A")
If sheet_name.Value = "" Then
Exit For
Else
On Error Resume Next
Set sh = ThisWorkbook.Worksheets(sheet_name)
On Error GoTo 0
If Not sh Is Nothing Then
With sh
'Insert 2 rows for 2011 and 2012's data
.Range("A14").EntireRow.Insert
.Cells(14, 1) = .Cells(15, 1) + 1
.Range("A14").EntireRow.Insert
.Cells(14, 1) = .Cells(15, 1) + 1
End With
End If
End If
Next sheet_name
End Sub