Soru bir excelden diger excel sayfalarina data copy paste

[bocmain]

Merhaba oncelikle
2 adet excell dosyam var 1ciye d1.xlsx 2ciye d2.xlsb diyelim
1ci dosyanin B column datalari 2ci dosyanin sheet adlari gibi dusunun
makro yazmaya calisdim chatgpt ile istedigim gibi yapmiyor benim istedigim su sekilde sirali olarak yaziyorum (ingilizce komut yazarsam zaten makro yazabilen adam anlar dusunuyorum)
oncelikle 2 excell dosyasini da acsin (xlsx xlsb uzantli oldugunun farkindayim)
open d1.xlsx d2.xlsb
activate d2.xlsb
select sheetIndex=2 (sheet name 2780)
after activate d1.xlsx
find 2780
if not there 2780 activate d2.xlsb and select sheetIndex=3
if there is - select founded Rows and active d2.xlsb and application.Run !ulvi * founded rows yazmisim ingilizcem o kadar istedigim bulunan datanin yanindaki datalar lazim olacak

then activate d1.xlsx
founded Rows D colum data copy
activate d2.xlsb
paste as value.
activate d1.xlsb
founded Rows E colum data copy
activate d2.xlsb
select latest rows I column
paste as value.
activate d1.xlsb
founded Rows H colum data copy
activate d2.xlsb
select latest rows K column
paste as value.
activate d1.xlsb
founded Rows K colum data copy
activate d2.xlsb
select latest rows M column
paste as value.
activate d1.xlsb
founded Rows N colum data if emty do nothing,
if>0 copy
activate d2.xlsb
select latest rows O column
paste as value.
activate d1.xlsb
founded Rows Q colum data if emty do nothing,
if not emty copy data
activate d2.xlsb
select latest rows S column
paste as value.

bu yazdiklarimi yapabilen varsa yardim etsin cunki bu isin 5%i diyebilirim. dogruyu soylemek gerekirse toplamda 6 adet excell faylinda toplamda 232 sayfa numarasi var
bu yazdigim bir dongudur yani her sheetde bunu yapiyorum. isimi hizlandirmak icin bazi kodlar isime yaradi chatgpt yardimi ile. ama dahafazlasini bilmiyorum. umarim yardim edebilen bulunur

d1.xlsx https://docs.google.com/spreadsheets/d/10xBx3AgWCvsZmyJumDmW5J4D-JYWMxR3/edit?usp=drive_link&ouid=115975155500963452473&rtpof=true&sd=true
d2.xlsb https://drive.google.com/file/d/18Ag1KxEOQbd6_KwpaoCK6i-HB65i-QgX/view?usp=drive_link