Vlookup Automation in VBA

[suji_bi]

I'm urgently trying to automate a vlookup scenario. I have Dates in cloumns in short date format in Tab Subs Week and in Tab named Cinema-Data have Dates and 6 rows of Data in cross tab format. All I want to do is if Dates in Subsweek match Dates in Cinema-Data then I want to copy the corresponding values in Row number 6 and Row number 9. Can I write a VBA code for this? I'm very new hope someone can help!


[TABLE="width: 100"]
<tbody>[TR]
[TD][/TD]
[TD]15/04/2017

[/TD]
[TD]16/04/2017[/TD]
[TD]17/04/2017[/TD]
[TD]18/04/2017[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]corresponding values to be copied from Events Row[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]corresponding values to be copied from Cancelled Row[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

[TABLE="width: 528"]
<colgroup><col><col><col><col span="2"><col></colgroup><tbody>[TR]
[TD][/TD]
[TD]15/04/2017[/TD]
[TD]16/04/2017[/TD]
[TD]17/04/2017[/TD]
[TD]18/04/2017[/TD]
[TD]19/04/2017[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Cinema[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Journeys[/TD]
[TD="align: right"]14[/TD]
[TD="align: right"]22[/TD]
[TD="align: right"]25[/TD]
[TD="align: right"]23[/TD]
[TD="align: right"]37[/TD]
[/TR]
[TR]
[TD]Events[/TD]
[TD="align: right"]14[/TD]
[TD="align: right"]21[/TD]
[TD="align: right"]23[/TD]
[TD="align: right"]20[/TD]
[TD="align: right"]34[/TD]
[/TR]
[TR]
[TD]Offer Presented[/TD]
[TD="align: right"]14[/TD]
[TD="align: right"]17[/TD]
[TD="align: right"]21[/TD]
[TD="align: right"]21[/TD]
[TD="align: right"]33[/TD]
[/TR]
[TR]
[TD]Cancelled[/TD]
[TD="align: right"]13[/TD]
[TD="align: right"]15[/TD]
[TD="align: right"]18[/TD]
[TD="align: right"]15[/TD]
[TD="align: right"]27[/TD]
[/TR]
</tbody>[/TABLE]