Combine information on worksheets

[thetadcat]

Here's the situation:

I produced a macro that copies one line from one spreadsheet to another. Here's the code:

Sub Macro6()
'
' Macro6 Macro
'
' Keyboard Shortcut: Ctrl+x
'
Range("A2").Select
Selection.Copy
Windows("Computer user list.xlsx").Activate
Range("Table_talus_SMS_DHS_DHS_Inventory[Computer Name]").Select
Selection.find(What:="A2104444", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.FindNext(After:=ActiveCell).Activate
Range("C5:G5").Select
Application.CutCopyMode = False
Selection.Copy
Windows("My computers (08-16-2011).xlsx").Activate
Range("F2").Select
ActiveSheet.Paste
End Sub

What I need to do is have the macro find all like computer names and combine the information on one sheet. This macro does that for only one line. Is there a way to make the options for search and find be a wildcard to find all numbers that match and then combine.

I tried posting this question earlier but I don't think I explained it very clearly.

Thanks in advance for any help.

cc

 

[jbeaucaire]

Care to show us some sample data and explain how/where each row in the sample would be copied to and why?