Recognising data and converting data block to single row

Hi, I'm very new to VBA coding so please be patient with me. I've been trying for Excel to recognize a date in Sheet1 and copy a block of data, then find the same date in Sheet2 and paste the copied data into one single row in line with that date, overwriting any data that might already exist in this row.

Sheet1.PNG

Sheet2.PNG

The pictures show a simplified layout of the problem I'm trying to solve. Any help would be greatly appreciated.

Hi, this is exactly what I wanted to happen, thank you so much . Could I ask you to explain a few details about the code to me so I can apply it to my actual workbook, which is a little more complex than my example, but I'm actually not able to share it on here.

Const S1Col As String = "B"
Const S2Col As String = "W" ... does this section define the range of columns between which the data will be pasted in sheet2?

WkDate = Sheets(WS1Name).Cells(1, 1)
With Sheets(WS2Name)
LR = .Cells(Rows.Count, 1).End(3).Row
For I = 1 To LR + 1
If (.Cells(I, 1) = WkDate) Then Exit For


... could you explain this section to me? I do apologise for my ignorance, like I said Im very new to this.