Or you can do it with a simple macro:

Sub insdup()
For ancell = 4 To 2 Step by - 1 ' replace 4 by real No of rows
Rows(ancell).Copy
Rows(ancell + 1).Insert Shift:=xlDown
Application.CutCopyMode = False
Next ancell
End Sub

Regards,
Stefi

€žKiannie€� ezt Ã*rta:

I want to duplicate names, example :

Dog
Cat
Duck

duplicate to

Dog
Dog
Cat
Cat
Duck
Duck