Notes

Sub УдалитьСтрокиСНИЛС_Гражданство()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim colSNILS As Integer
Dim colGrazhd As Integer

' Указываем лист "Шаблон"
Set ws = ThisWorkbook.Sheets("Шаблон")

' Определяем последнюю заполненную строку
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

' Находим номера столбцов по заголовкам
On Error Resume Next
colSNILS = Application.Match("СНИЛС", ws.Rows(1), 0)
colGrazhd = Application.Match("Гражданство получателя (код страны по ОКСМ)", ws.Rows(1), 0)
On Error GoTo 0

' Проверяем, найдены ли столбцы
If colSNILS = 0 Or colGrazhd = 0 Then
MsgBox "Ошибка: Не найдены столбцы 'СНИЛС' или 'Гражданство получателя (код страны по ОКСМ)'.", vbExclamation
Exit Sub
End If

' Проходим по строкам с конца вверх, чтобы избежать пропусков при удалении
For i = lastRow To 2 Step -1 ' Первая строка — заголовки
If IsEmpty(ws.Cells(i, colSNILS).Value) And ws.Cells(i, colGrazhd).Value = 643 Then
ws.Rows(i).Delete
End If
Next i

MsgBox "Удаление завершено!", vbInformation
End Sub