Option Explicit

Sub ПечатьШаблона()
    Dim i           As Long
    Dim pdfPath     As String
    Application.ScreenUpdating = False

    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Worksheets("Шаблон")

    With ThisWorkbook.Worksheets("Данные")

        For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
            targetSheet.Shapes("TextBox 1").TextFrame.Characters.Text = .Cells(i, "A").Value
            targetSheet.Shapes("TextBox 2").TextFrame.Characters.Text = .Cells(i, "C").Value
            targetSheet.Shapes("TextBox 3").TextFrame.Characters.Text = .Cells(i, "B").Value

            pdfPath = ThisWorkbook.Path & "\PDF_файл_" & i - 1 & ".pdf"
            targetSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath
        Next

    End With

    Set targetSheet = Nothing
    Application.ScreenUpdating = True
End Sub