aşağıdaki kod bir önce yazdığımdan daha hızlı

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



Set Hdf = ThisWorkbook.Worksheets("Yazdir")

Hdf.UsedRange.Delete



For X = 2 To SonStr Step Carp

y = X

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

    For Stn = 2 To StnSay + 1

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

        y = y + StrSay

    Next Stn

Next X

    

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

Hdf.PageSetup.PrintArea = "$B$2:$H$" & SonStr

Hdf.Range("b2", "h" & SonStr).Borders.LineStyle = xlContinuous



MsgBox "Bitti"

End Sub