Help on Multiple Dates Please!

[bernice620]

I really hope that someone can help me. I have a code that works for the file called "Dummy File Current" which is attached. It looks up the part number under the Want tab and pulls in the dates under the respective tabs and places it under the respective column under the Want tab. Now that I've added some more tabs in the excel file called "Want New", I DO NOT know how to rework the code where it does the same function as "Dummy File Current." Can someone please help so that the code under "Dummy File Current", which is provided below, will do the same for the "Want New."

 
Option Explicit  
 
Sub DummyFile()  
    Dim a, i As Long, ii As Long, w, e  
    With CreateObject("Scripting.Dictionary")  
        .CompareMode = 1  
        For i = 6 To 9  
            a = Sheets(i & IIf(i = 6 Or i = 7, "R", "W") & " WIW").Cells(1) _  
                .CurrentRegion.Value  
            For ii = 2 To UBound(a, 1)  
                If a(i, 5) <> "" Then  
                    For Each e In Split(a(ii, 5), ", ")  
                        If Not .exists(Trim$(e)) Then  
                            ReDim w(1 To 4)  
                        Else  
                            w = .Item(Trim$(e))  
                        End If  
                        w(i - 5) = w(i - 5) & _  
                            IIf(w(i - 5) <> "", " , ", "") & a(ii, 2)  
                        .Item(Trim$(e)) = w  
                    Next  
                End If  
            Next  
        Next  
        With Sheets("want").Cells(1).CurrentRegion  
            .Columns("b:e").Offset(1).ClearContents  
            a = .Value  
        End With  
        For i = 2 To UBound(a, 1)  
            If .exists(a(i, 1)) Then  
                For ii = 1 To 4  
                    a(i, ii + 1) = .Item(a(i, 1))(ii)  
                Next  
            End If  
        Next  
    End With  
    Sheets("want").Cells(1).CurrentRegion.Value = a  
End Sub   
 
Seriously, any help is appreciated!  
 
Attached FilesDummy File Current.xlsx&#8206;(146.9 KB, 1 views)  
Want New.xlsx&#8206;(96.1 KB, 1 views)