Cycle Through A Series of Worksheets & Insert Rows, Then Special Paste Data

This should work. Sorry, earlier you were right on variables as you have option explict on your code

Sub test11()
Dim sh As Worksheet
 For Each sh In ThisWorkbook.Worksheets
   With sh
   If sh.Name Like "WK*" Then
            .Rows(64).Resize(23).Insert Shift:=xlDown
            sh.Range("A87:C109").Copy Destination:=sh.Range("A64")
            End If
    End With
 Next sh
 
End Sub