Tengo una hoja de cálculo que se actualiza regularmente. Por lo tanto, las posiciones del encabezado de columna cambian regularmente. p.ej. hoy "Nombre de usuario" es la columna K, pero mañana "Nombre de usuario" podría ser la columna L. Necesito agregar una nueva columna a la derecha de "Nombre de usuario", pero cuando cambie no puedo referirme a la referencia de celda / columna.

Hasta ahora tengo:

Dim rngUsernameHeader As Range
Dim rngHeaders As Range
Set rngHeaders = Range("1:1") 'Looks in entire first row.
Set rngUsernameHeader = rngHeaders.Find("Username")

Cuando voy a agregar una nueva columna a la derecha, selecciono esa fila pero vuelve a las referencias de celda / columna ...

Columns("K:K").Select
Selection.Insert Shift:=xlToRight
Range("K1").Select
ActiveCell.FormulaR1C1 = "Role"

¿Cómo puedo realizar este paso con una macro?

editar: Creo que debo darle a esa columna un nombre de encabezado y comenzar a llenar la fila con datos; cada vez que lo hago, comienzan las referencias de celda que quiero evitar siempre que sea posible.

Muchas gracias de antemano.