Ekle Butonuna tıkladığım zaman Tahdit Kaldırılan sayfasına T.C. Kimlik Numarasından itibaren bilgileri en son boş satırdaki ilgili hücrelerine yapıştırabilmek için makro ne yazılabilir.
Yardımcı olabilecek arkadaşlara teşekkür ederim.

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"

Sayın berduş bey makroyu bir modüle ekledim;

Başına : Sub kayıtekle() Sonuna da : End Sub

ekleyerek bitirdim. İşlemi yapıyor: Doğru mu acaba?

evet

Teşekkürler emeğinize sağlık. İhtiyaca cevap verdi.

iyi çalışmalar