Macro to add columns into worksheet

[Blubber]

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

 

[Dave Peterson]

Nothing pops out right away.

But when funny things happen on inserting/deleting, I look for merged cells.
They are a pain.

I do my best to not use them.

 

[Blubber]

Wow Dave

Really shows how experienced you are. Yes, its due to merged cells adjacent
to column Z.
Thanks!!!

 

[Dave Peterson]

Those merged cells can be more trouble than they're worth!