Eu tenho uma planilha que é atualizada regularmente. Portanto, as posições do cabeçalho da coluna mudam regularmente. por exemplo. hoje "Nome de usuário" é a coluna K, mas amanhã "Nome de usuário" pode ser a coluna L. Preciso adicionar uma nova coluna à direita de "Nome de usuário", mas onde ela muda, não posso me referir como referência de célula / coluna.

Até agora eu tenho:

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

Quando adiciono uma nova coluna à direita, seleciono essa linha, mas ela volta para as referências de célula / coluna ...

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

Como posso executar esta etapa com uma macro?

editar: Eu acho que preciso dar a essa coluna um nome de cabeçalho e começar a preencher a linha com dados - cada vez que faço, inicia as referências de célula que quero evitar sempre que possível.

Muito obrigado antecipadamente.