mehrfach einfügen, bitte um Hilfe

Sub Datum1()

    Dim bereich1 As Range

    Dim x As Integer

    Dim ZeilenNr As Integer

    Dim ws1 As Worksheet

    Dim ws2 As Worksheet

    Dim letzteZeile As Long

    Dim letzteZeile1 As Long



    Set ws1 = ThisWorkbook.Worksheets("Import")

    Set ws2 = ThisWorkbook.Worksheets("Auswertung")

    letzteZeile1 = ws1.Cells(ws1.Rows.Count, 2).End(xlUp).Row

    Set bereich1 = ws1.Range("J11:J" & letzteZeile1)

    ZeilenNr = bereich1.Rows.Count

    letzteZeile = ws2.Cells(ws2.Rows.Count, 3).End(xlUp).Row



    For x = 1 To ZeilenNr Step 4

        ws2.Cells(letzteZeile + 1, 3).Value = bereich1.Cells(x, -8).Value

        letzteZeile = letzteZeile + 1

    Next

End Sub