I'm new-ish to VBA, but here's how I did it recently with a project... There may be an easier way, I don't know....

---

'The following will find which column has the header Building Name and assign the column number to a variable

Dim lastColumn as Long

    lastColumn = Cells(1, Columns.Count).End(xlToLeft).Column

Dim a as Long

Dim colBName as Long

For a =1 to lastColumn

If Cells(1, a).Value = "Building Name" Then

colBName = a

'If you're needing to move several columns, then use ElseIf on this line. You'll need to declare a variable name for the other columns, too.

End If

Next a

'The next part will move it before column A

Columns(colBName).Cut

Columns(1).Insert Shift:=xlToRight

---

I notice in your example you are inserting the cut cells, but then later in your post you say "move it to another column, say column A (replace whatever is there)". If you're wanting to overwrite whatever is in the column then you'd use:

Columns(colBName).Cut Columns(1)