Code:
Sub MainMacro()
Dim ws As Worksheet: Set ws = Sheets("Sheet1")
Dim wb As Workbook: Set wb = Workbooks("Received.xlsm")
Dim wksht As Worksheet
Dim lastrow As Long, icell As Long
Dim sNum As String, sItem As String
lastrow = ws.Range("C" & Rows.Count).End(xlUp).Row
For icell = 2 To lastrow
If Not ws.Range("C" & icell) Is Nothing Then
sNum = ws.Range("C" & icell).Offset(0, -2).Value
sItem = ws.Range("C" & icell).Offset(0, -1).Value
For Each wksht In wb.Worksheets
If wksht.Name = sNum Then
wksht.Range("C1").End(xlDown).Offset(1, 0).Value = sItem
End If
Next wksht
End If
Next icell
End SubIdeas???