Sub MyCopy()
    Dim sh1 As Worksheet
    Dim sh2 As Worksheet
    Set sh1 = Sheets("Лист1")
    Set sh2 = Sheets("Лист2")
    
    Dim dt As Date
    dt = sh1.Range("A1").Value
    Dim mm As Long
    mm = Month(dt) + 12 * (Year(dt) - 2022) - 9
    
    Dim arr As Variant
    arr = sh1.Cells(11 + 10 * mm, 1).Resize(10, 5)
    
    sh2.Cells(1 + 10 * mm, 1).Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
End Sub