aşağıdaki gibi düzenleyip dener misiniz?

Sub CokluStn()



Dim Kynk As Worksheet

Dim Hdf As Worksheet



Dim SonStr As Long, Str As Long

Dim Carp As Integer

Dim StnSay As Integer, Stn As Byte

Dim StrSay As Byte

   

    StnSay = 7 'sütun Sayısı

    StrSay = 50 'satır sayısı

    Carp = StnSay * StrSay



Set Kynk = ThisWorkbook.Worksheets("Veri")

    SonStr = Kynk.Cells(Kynk.Rows.Count, "B").End(xlUp).Row



With Kynk

For X = 2 To SonStr Step Carp

y = X

Str = ((X - 1) \ Carp) * StrSay + 2

    For Stn = 5 To 11

        Kynk.Cells(Str, Stn).Resize(50) = Kynk.Range("B" & y & ":B" & y + 49).Value

        y = y + StrSay

    Next Stn

Next X

   

SonStr = .Cells(.Rows.Count, "E").End(xlUp).Row

         .PageSetup.PrintArea = "$E$2:$K$" & SonStr

         .Range("E2", "K" & SonStr).Borders.LineStyle = xlContinuous

End With



MsgBox "Bitti"

End Sub