Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
    
 Dim FullFileName As String
 Dim FileName As String
 Dim FullPath As String
 Dim PathName As String
    
    'первое условие - данные из ячейки С2
    FullFileName = ThisWorkbook.Sheets("band").[C2]
    
    ' второе условие - определяем имеющееся название и место сохранения книги
    FileName = Application.ThisWorkbook.Name
    FullPath = ActiveWorkbook.Path
    PathName = FullPath & "\" & FileName
        
    'сравниваем условия, указываем действия при несовпадении
    If FullFileName <> PathName Then MsgBox ("Копия запрещена!")
    If FullFileName <> PathName Then Cancel = True
      
End Sub

Sub test()
    Application.ScreenUpdating = False
    Dim sh As Worksheet: Set sh = ActiveSheet: [a1].Select
    Dim ra As Range, cell As Range, zero As Range: Set ra = Intersect(sh.UsedRange, sh.Rows(2))
    For Each cell In ra.Cells
        If cell.Text = "Sum of price" or _
           cell.Text = "Sum of tax" _
 Then If zero Is Nothing Then Set zero = cell Else Set zero = Union(zero, cell)
    Next
    If Not zero Is Nothing Then zero.EntireColumn.Select:    '.Delete
End Sub