VBA - need help to add another feature into existing code

[smide]

Hello.

The following code allows me to copy data from Sheet2 into Sheet1 and at the same time to remove duplicates based on the same text in columns A,C,E...
So, for example, if macro finds that the text in cell C9 (Sheet2) is the same as text in any of the cells in column C in Sheet1 he doesn't copy/append cell C9 from Sheet2 but he also skip corresponding/next cell - cell D9 in this example.

Sub RemoveDupes()

'Columns A and B
Dim w1 As Worksheet, w2 As Worksheet
Dim rng1 As Range, rng2 As Range, c As Range
Set w1 = Sheets("Sheet1")
Set w2 = Sheets("Sheet2")
Set rng1 = w1.Range(w1.Range("A3"), w1.Range("A" & Rows.Count).End(xlUp))
Set rng2 = w2.Range(w2.Range("A3"), w2.Range("A" & Rows.Count).End(xlUp))
With CreateObject("Scripting.Dictionary")
  .CompareMode = vbTextCompare
  For Each c In rng1
    If Not .Exists(c.Value) Then
      .Add c.Value, c.Offset(, 1)
    End If
  Next
  For Each c In rng2
    If Not .Exists(c.Value) Then
      .Add c.Value, c.Offset(, 1)
    End If
  Next
  w1.Range("A3").Resize(.Count, 2) = Application.Transpose(Array(.Keys, .Items))
End With
w1.Activate

'Columns C and D
Dim w3 As Worksheet, w4 As Worksheet
Dim rng3 As Range, rng4 As Range, d As Range
Set w3 = Sheets("Sheet1")
Set w4 = Sheets("Sheet2")
Set rng3 = w3.Range(w3.Range("C3"), w3.Range("C" & Rows.Count).End(xlUp))
Set rng4 = w4.Range(w4.Range("C3"), w4.Range("C" & Rows.Count).End(xlUp))
With CreateObject("Scripting.Dictionary")
  .CompareMode = vbTextCompare
  For Each d In rng3
    If Not .Exists(d.Value) Then
      .Add d.Value, d.Offset(, 1)
    End If
  Next
  For Each d In rng4
    If Not .Exists(d.Value) Then
      .Add d.Value, d.Offset(, 1)
    End If
  Next
  w3.Range("C3").Resize(.Count, 2) = Application.Transpose(Array(.Keys, .Items))
End With
w3.Activate

....

So code if fine, but unfortunately it's static, and I want to add product names in row3 in Sheet1 at the top of columns B,D,F...(and also in Sheet2 row3 of course) and when I do this append/remove duplicates I would also like
that somehow code recognize position of the newly added text/strings in cells B3,D3,F3... then to compare them with text in Sheet1 (also row3) and to copy values in the appropriate columns based on the same text. (something like hlookup function in macro)

Example.

Sheet1 (data summary)

	A	B	C	D	E
1
2
3		Product1		Product5
4	06.07	13	05.07	21	....
5	08.07	8	08.07	16	...
6	09.07	12			....
7					...

<tbody>
</tbody>

Sheet2 (obtained new "raw" data)

	A	B	C	D	E	F
1
2
3		Product5		Product1	........
4	09.07	15	06.07	13	....
5	10.07	31	08.07	12
6			09.07	34
7			11.07	46
8

<tbody>
</tbody>

<tbody>
</tbody>

Sheet1 (after update/append from Sheet2, with removed duplicates/same dates)

	A	B	C	D	E
1
2
3		Product1		Product5	.....
4	06.07	13	05.07	21
5	08.07	8	08.07	16
6	09.07	12	09.07	15
7	11.07	46	10.07	31
8	...	....	...	...

<tbody>
</tbody>