Macro to Add Columns in Excel

I have a Excel spreadsheet to track employee information. I need to add macro in that adds three columns at the end of the first sheet and it must populate the three new columns with formulas on all records in the sheet? Any recommendations and suggestions are appreciated.

Use this code :

Code:

---

Sub CalDat()
Dim wC As Worksheet
Dim wT As Worksheet
Dim rU As Range
Dim lRw As Long

Set wC = Sheets("Code")
Set wT = Sheets("T_Write_off")
Set rU = wsTWO.UsedRange
lRowEnd = rUsed.Rows.Count + rUsed.Row - 1
wT.Range("AH1:AJ1").Formula = wC.Range("AH1:AJ1").Formula
wT.Range("AH2:AJ" & lRowEnd).Formula = wC.Range("AH2:AJ2").Formula
wT.Activate
Range("A1").Select
Selection.End(xlToRight).Select
End Sub

---

Check this for example :

Code:

---

Sub addcol()

LasCol = Cells(1, Colu.Count).End(xlToLeft).Column

Colunt = LastCol
Do While Colunt > 1
If Cells(1, Colunt) > Cells(1, ColCount - 1) + 1 Then
Columns(Colunt).Insert
Cells(1, Colunt) = Cells(1, ColCount + 1) - 1
Else
Colunt = Colunt - 1
End If
Loop

---

You need another macro to rearrange the position of columns. For eg. in excel there are A, B, C, D ,E1 COLUMNS. (three in your case). Split your screen, use the F8* key and see what you procedure does work in Excel.