Match Date rows from separate workbooks

I have the following code that matches a date in cell A1 from ThisWorkbook (Book1 - which I called Calc) with dates in Row 1 of Book2 (which I called Why) and pastes B8:B9 accordingly.

What I'd like to do is expand it so it matches dates in Row 1 of both workbooks, copies Rows 8-9 from Book2 accordingly and pastes into Rows 2-3 of Book1. Ideally then create a loop so it goes through Sheet 1 to 7 of Book2. The date it would match would still be in A1 since I don't want it matching ALL the dates - otherwise it would populate an entire year's worth of data from 7 different sheets. I only need 4 dates at a time so I'll just retype what's in A1 and run the macro 4 times.

Book1 is attached with the results I'd like to have pulled from Book2.

Please Login or Register  to view this content.

The code below need both workbooks are open

Please Login or Register  to view this content.

The process :
the code need the user to type the date in dd-mmm-yy format.
then the code find what column is the date (inputted by the user) in row1 of wb-1 sheet1 then keep it in a variable cl
then it put the date on cell A1 of wb-1 sheet1

loop to each sheet in wb-2
where on each sheet of wb-2 it also find what column is the date (inputted by the user),
get the value of row 7 and row 8 of the found column
then put the value to the corresponding row and column on wb-1 sheet1.

I hope I understand what you want for the expected result.

I only need 4 dates at a time so I'll just retype what's in A1 and run the macro 4 times.

if the 4 dates are in consecutive date,
for example the inputted date is 12-sep-21, and you want to get the value of 12-sep-21 to 15-sep-21,
I think you can modify the vl variable and also modify the range of wb-1 sheet1 to be fill with the vl value,
so you don't have to type the date 4 times and run the macro after each typing.

A few more changes that I made to Cap to make it look like the workbook I'll eventually want to implement it into - again I'm using more of a mockup so I don't share sensitive info. It's a very big workbook so I didn't want to go into it and delete 15 pages of sensitive data.
So your latest code works but I only if I leave the sheets named default (Sheet1, Sheet2, etc etc). I thought I'd rename sheets 9 to 15 to match the "real" document but then the code no longer worked, with the following line highlighted.

Please Login or Register  to view this content.

So I changed this line

Please Login or Register  to view this content.

to (having renamed Sheet9 to Bob)

Please Login or Register  to view this content.

I thought that would do the trick but I still get "Runtime Error 1004. Application defined or object defined error".
I assume there's something else in the the code I need to change?

Please Login or Register  to view this content.