Macro ile sayfada bulunan en son veriye kadar belirlenen sütunları kopyalama yapabilir miyiz?

Sayın @feraz beyin ve @atoykan beyin yardımları ile son aşamasına geldiğim dosyamdaki macro ile ilgili olarak;
Veri aldığım kitaplar İzin, Rapor ve Ücretsiz'dir. Aynı şekilde de içindeki sayfa isimleri de aynı;
Sistemden veri aldığım zaman kitap isimlerine ve sayfa isimlerine numara ekleniyor Örneğin İzin kitabı önce İzin77 ise İzin78 olarak içerisindeki sayfa adı da önce İzin77, sonra İzin78 olarak geliyor.
Kitap ve Sayfa isimlerini değiştirirsem Kitap: İzin Sayfa: İzin yaparsam aşağıdaki macro

Merhaba
Excel sayfasındaki 3 hücreye kayıt yapmak için yazdığım makro ilk seferinde çalışmasına rağmen 2.defasında hata verdi. Kod da bir tutarsızlık yok ama neden bu hatayı veriyor. Yanlış olan nedir.

[code]Option Explicit

Sub inputbox1()

Dim isim As String
Dim dogumTarihi As Date
Dim kilo As Integer

isim = InputBox("Adınızı Giriniz...")
dogumTarihi = InputBox("Doğum tarihini giriniz")
kilo = InputBox("Kilonuzu giriniz")

Range("a1").End(xlDown).Offset(1, 0).Select
ActiveCel

Geliştirici sekmesinden makro kaydet ile macro oluşturdum. Ben 2021 office tr kullanıyorum.
Alt versiyon officelerde macro hata veriyor acaba neden olabilir?
Kaydettiğim macro da hata mı var acaba? veya macro ne yazılabilir?
Ekli dosyalar

Ad tanımlamayı formüle aktarmak için macro ile bilgiyi yapıştırmak istiyorum.
Macro hazırladım ama eksik oldu. Tamamlayamadım. Yardımcı olabilecek arkadaşlara teşekkür ederim.