Sub СохранитьРеестрПродаж()
On Error Resume Next
Application.DisplayAlerts = False
Dim bookconst As Workbook
Set bookconst = Workbooks(ActiveWorkbook.Name)
Application.ScreenUpdating = False
ActiveSheet.Copy
Dim sName, fAdres As Variant
sName = ActiveSheet.Name
fAdres = bookconst.Path
If Len(Dir(fAdres & "\" & sName, vbDirectory)) = 0 Then
MkDir fAdres & "\" & sName
End If
ActiveWorkbook.SaveAs Filename:=fAdres & "\" & sName & "\" & sName & "_" & Date & ".xlsx"
Application.ScreenUpdating = True
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

Sub УдалитьСтрокуТорг()
Dim lr2 As Long, i As Long, k As Long
Application.ScreenUpdating = False
k = Application.WorksheetFunction.CountIf(Range("Torg[a]"), "a")
If k = 0 Then
MsgBox "Не выбрано ни одной позиции!", vbCritical, "Ошибка удаления"
Exit Sub
End If
    lr2 = Cells(Rows.Count, 5).End(xlUp).Row
    For i = lr2 To 5 Step -1
        If Cells(i, 2) = "a" Then
            Range("B" & i & ":R" & i).EntireRow.Delete
            End If
    Next i
    Range("E7").Select
    
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

=ЕСЛИ([@Наименование]="";"";СТРОКА(B1)) 

=ЕСЛИ([@Наименование]=";";СТРОКА(B1))