HELP!

Goal: seeking to have a row of data in "sheet1" which has a unique
indentifier in cell D6 copy and pasted to a worksheeting within the
same workbook that matches the uniquie indentifier in Cell D6. I would
like this to loop through to the end of the 30 or so records.

Current Code: I have this macro repeating thirty times, but does not
allow for any new additions to the "sheet1" data rows (ie, if I delete
one item and replace it with a new identifier)

Sheets("sheet1").Activate
Range("G7:K7").Select
Selection.Copy
Sheets("DAVE").Select
Range("B7").Select
ActiveSheet.Paste

My Flustration: tying the identifer, which is not copied to the
individual worksheet to the worksheet which matches the identifer and
having the process loop though all records, copy the data from g:k and
then deposit that data into the correct sheet (in the case above, its
"DAVE").

hope this makes sense, Happy New year to all. Thanks.