I wrote a macro to add columns into a worksheet called "DrListWorkCopy"
For some reason the macro incerted 3 extra columns at the end of column"Z".

Anyone see where I went wrong?

These are my codes

Public Sub IncertColDrListWorkCopy()
Dim WorkCopy As Worksheet
Set WorkCopy = Sheets("DrListWorkCopy")
With WorkCopy
Columns("L").Select
Selection.Insert 'Shift:=xlToLeft
Columns("O").Select
Selection.Insert 'Shift:=xlToLeft
Columns("Q").Select
Selection.Insert 'Shift:=xlToLeft
Columns("W").Select
Selection.Insert 'Shift:=xlToLeft
Columns("Z").Select
Selection.Insert 'Shift:=xlToLeft
End With
End Sub