Hi,

Test this code (be sure to read comments and edit if needed)

[VBA]Public Sub CopyAndCombineData()
Dim c As Range, r As Range
Dim i As Long

Dim strvalue As String

Application.ScreenUpdating = False

'I have assumed PC Name resides in column A of Sheet1. Change to suit
For Each c In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)

'Sheet 2 name is assumed as "Sheet2". Change it to suit
Set r = Sheets("Sheet2").Range("A:A").Find(c.Value, [A1], xlValues, xlWhole, _
xlByRows, xlNext, True)

If Not r Is Nothing Then
strvalue = vbNullString
For i = 2 To Sheets("Sheet2").Cells(r.Row, Columns.Count).End(xlToLeft).Column
strvalue = strvalue & " " & Sheets("Sheet2").Cells(r.Row, i).Value
Next i
c.Offset(0, 1).Value = Trim(strvalue)
End If

Next c

Application.ScreenUpdating = True

End Sub
[/VBA]