Trying to Select and Delete Multiple Columns by Header ID - NOT on an specific table

[NachoBoacity]

This is the code I found, however I do not know how to fix it and then delete it... It will have to be multiple columns depending on the header title NOT column Number/letter

Also found this code, it works too , however I do not know how to adapt it to be able to add more than one column value. So xStr = "name" be able to add few names.

Sub FindAddressColumn()
'Updateby Extendoffcie
Dim xRg As Range
Dim xRgUni As Range
Dim xFirstAddress As String
Dim xStr As String
On Error Resume Next
xStr = "Name"
Set xRg = Range("A1:P1").Find(xStr, , xlValues, xlWhole, , , True)
If Not xRg Is Nothing Then
xFirstAddress = xRg.Address
Do
Set xRg = Range("A1:P1").FindNext(xRg)
If xRgUni Is Nothing Then
Set xRgUni = xRg
Else
Set xRgUni = Application.Union(xRgUni, xRg)
End If
Loop While (Not xRg Is Nothing) And (xRg.Address <> xFirstAddress)
End If
xRgUni.EntireColumn.Select
End Sub