How to add a new column to an existing sheet and name it?

Question

Suppose I have the worksheet below:

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

How can I insert a new c

Answer 1

For your question as asked

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

If you had a way of automatically looking up the data (ie matching uk against employer id) then you could do that in VBA

Answer 2

Use insert method from range, for example

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