Как использовать циклы в Excel для решения проблемы копирования и вставки

Question

Я пытаюсь скопировать полный ряд (от столбца B до столбца AI) с листа 1 на лист 2, но на листе 2 строка всегда будет вставлена на три строки ниже, чем я вставил предыдущий ряд.

Так, например, я копирую строку 1 из листа 1 Вставка в строку 3 в листе 2

Затем копирование из строки 2 (лист 1) и копирование в строку 6 (лист 3)

Затем копирование из строки 3 (лист 1) и копирование в строку 9 (лист 2)

и так далее ..

Может кто-нибудь помочь мне с написанием цикла записи в VBA??

Вот код, который у меня есть сейчас:

Sub Copy_Over_Rows()

    Dim x As Long, y As Long

    Application.ScreenUpdating = False
    ThisWorkbook.Activate
    For x = 6 To 113
        Sheets("Sheet1").Select
        Range("B" & x & ":AI" & x).Copy
        Sheets("Accomodation Availability").Select
        Range("B" & x + y & ":AI" & x + y).Select
        ActiveSheet.Paste
        y = y + 1
    Next x
End Sub