this assumes you have a table in a sheet named "main"
The table starts in A1 with WM7886 with A13 having WM1349 and C13 having 1712

The looks at each sheet in turn, skipping over 'main'
the for each of the items, we do a simple match() to see if the WM* code is
present and if it is, copy over the data

NOTE: this is not optimised in any way...but for smallish applications lie
this, it snot a particularly lengthy process.

My workbook is available

Option Explicit
Sub PopData()
   Dim source As Range
   Dim ws As Worksheet
   Dim cell As Range
   Dim index As Long
   For Each ws In Worksheets
   If ws.Name <> "main" Then
       For Each cell In Range(Range("A1"), Range("A1").End(xlDown))
           index = matched(cell.Value, ws)
           If index > 0 Then            
               ws.Cells(index, 200).End(xlToLeft).Offset(0, 1) =
cell.Offset(, 1)
               ws.Cells(index, 200).End(xlToLeft).Offset(0, 1) =
cell.Offset(, 2)            
           End If
       Next 'item
   End If
   Next 'sheet
End Sub
Function matched(item As String, ws As Worksheet) As Long
   On Error Resume Next
       matched = WorksheetFunction.Match(item, ws.Columns(1), False)
   On Error GoTo 0
End Function

note that some worksheet functions like Match() and Vlookup() actually raise
errors in VBA. So by "wrapping" them in a safe function, we can avoid
horrible code issues later when it comes to debugging longer and more complex
code