Dim ColNr As Integer
   Dim RowNr As Integer
   Dim LastLine As String
   Dim WS As Worksheet
   Dim R As Range

   For Each WS In ThisWorkbook.Sheets
    If WS.Name <> "Sheet1" Then
        With WS.UsedRange

        LastLine = ("PI " & ColNr - 2 & " Achievement")

        Set R = .Cells.Find(What:=LastLine, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

        If Not R Is Nothing Then

            RowNr = R.Rows

        End If

        Sheets("Template").Rows("1:14").Copy
        .Cells(RowNr + 2, 1).Paste

        End With

    End If

Next WS