cómo agregar una nueva columna a una hoja existente

Question

Supongamos que tengo la hoja de trabajo a continuación:

Empid EmpName Sal 
1  david  100 
2  jhon  200 
3  steve  300 

¿Cómo puedo insertar una nueva columna llamada "Loc", incluyendo sus datos?

Empid EmpName Loc Sal 

1  david  uk 100 
2  jhon  us 200 
3  steve  nj 300 

Answer 1

método de uso de inserción de intervalo, por ejemplo

Sub InsertColumn() 
     Columns("C:C").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 
     Range("C1").Value = "Loc" 
End Sub 

Answer 2

Por su pregunta, tal como solicitó

Columns(3).Insert 
Range("c1:c4") = Application.Transpose(Array("Loc", "uk", "us", "nj")) 

Si había una manera de ver automáticamente los datos (es decir, a juego uk contra Identificación del empleador) entonces usted podría hacer eso en VBA