VBA - Copy values from one sheet to another at current date

Hello all,

I need help with a vba code, to take the values from sheet Stoc and paste them in sheet Istoric at current date:

Sheet Stoc:
REPER XX YY ZZ QQ RR SS
AAA 11 22 33 9999 55 66
BBB 88 55 77 11 22 33

Sheet Istoric should loom like this:
DATA AAA - XX AAA - YY AAA - ZZ AAA - QQ AAA - RR AAA - SS BBB - XX BBB - YY BBB - ZZ BBB - QQ BBB - RR BBB - SS
01.04.2024
02.04.2024
03.04.2024
04.04.2024 11 22 33 9999 55 66 88 55 77 11 22 33
05.04.2024
06.04.2024
07.04.2024
08.04.2024
09.04.2024
10.04.2024
11.04.2024
12.04.2024
13.04.2024
14.04.2024


I just tried with chatgpt, but of course it didn't help
Thank you in advance.

Option Explicit

Sub UpdateData()

    Dim wsS As Worksheet, wsI As Worksheet
    Dim fndrng As Range
    Dim str() As String
    Dim i As Integer, frow As Integer, fcol As Integer, lcol As Integer
    
    Set wsS = ThisWorkbook.Sheets("Stoc")
    Set wsI = ThisWorkbook.Sheets("Istoric")
    
    Set fndrng = wsI.Range("A:A").Find(what:=Date, LookIn:=xlValues)
    lcol = wsI.Cells(1, Columns.Count).End(xlToLeft).Column
    
    For i = 2 To lcol
        str = Split(wsI.Cells(1, i), " - ")
        frow = wsS.Range("A:A").Find(what:=str(0)).Row
        fcol = wsS.Range("1:1").Find(what:=str(1)).Column
        
        wsI.Cells(fndrng.Row, i) = wsS.Cells(frow, fcol)
        
    Next i

End Sub

Thank you very much thomglea,
Everything is just perfect.

Highly apreciated,