Try this
Sub copyalltotheirsheets()
For Each c In Range("a2:a" & Cells(Rows.Count, "a").End(xlUp).Row)
With Sheets(CStr(c))
.Rows(2).Insert
c.Resize(, 2).Copy .Range("a2")
End With
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Benjamin" wrote in message
...
I have a worksheet with 2 columns of data that changes each day. I am
looking for a way to link / copy a certain row from the first worksheet to
another worksheet on a daily basis -- I would need to do this with
numerous
rows into numerous worksheet.

Example:
bob 5
jim 6
frank 2

I need to link / copy (jim, 6) to worksheet jim.

Each day I would like the newest row to appear at the top, and all the
older
data to move down a row.

Can someone help me with the copying / links and moving the data down
using
a non-manual method?