Try this small macro:

Sub rotateUm()
Set r1 = Range("A1")
r1.EntireRow.Insert
Set r1 = Range("A1")
n = Cells(Rows.Count, "A").End(xlUp).Row
Set r = Rows(n)
r.Copy r1
r.Clear
End Sub

--
Gary''s Student - gsnu200851


"Ben" wrote:

Hello I was asked this and didn't know the answer so I'm seeing if any one
else has com accross this.

If i have a list of contacts with 3 coloms name, address, phone # and a
total amount of 47 contacts currently organized by alpha by name. Is there a
way that every month the name at the botom of the list will move to the top
of the list and the ones originally above shift downward. This can be
occomplished by either automaticly each month or a button that can be clicked
when the user descides to update the contact list. If its possible, any light
on the subject would be greatful.

Thank you