aşağıdaki kodu dener misiniz?

Set Kynk = ThisWorkbook.Worksheets("Bul")

Set Hdf = ThisWorkbook.Worksheets("Tahdit Kaldırılan"): SonStr = Hdf.Cells(Hdf.Rows.Count, 3).End(xlUp).Row + 1

Dim VrDz As Variant

ReDim VrDz(0, 1 To 8)

With Kynk

    VrDz(0, 1) = .Range("Ac17"): VrDz(0, 5) = .Range("AH17")

    VrDz(0, 2) = .Range("Ac19"): VrDz(0, 6) = .Range("AH19")

    VrDz(0, 3) = .Range("Ac21"): VrDz(0, 7) = .Range("AH21")

    VrDz(0, 4) = .Range("Ac23"): VrDz(0, 8) = .Range("AH23")

End With

    Hdf.Range("C" & SonStr).Resize(, 8) = VrDz

    MsgBox "İşlem Tamam"