ben sadece temel şablonu oluşturup bir kaç hücre için yaptım geriye kalanları (toplam 162 hücre) örneğe bakarak yapabilirsiniz
makro kodu olarak kullanabilirsiniz
dilerim işinize yarar

Sub VeriKopyala()

Dim WbKaynak, WbKaynak2, WbKaynak3, WbKaynak4 As Worksheet

Dim WbHedef As Worksheet

Dim SonSatir As Long



  '

  Workbooks.Open ActiveWorkbook.Path & "\Veri Tabanı.xlsx"

  Set WbKaynak = ThisWorkbook.Worksheets("VERİ GİRİŞİ")

  Set WbKaynak2 = ThisWorkbook.Worksheets("09-Personel_Envanteri")

  '... diğer sayfalar

  Set WbHedef = Workbooks("Veri Tabanı.xlsx").Worksheets("Veri")

    

   

  '2. Find first blank row in the destination range based on data in Column A

  'Offset property moves down 1 row

  SonSatir = WbHedef.Cells(WbHedef.Rows.Count, "B").End(xlUp).Offset(1).Row

If SonSatir = 3 Then x = 4 Else x = SonSatir



WbHedef.Range("b" & x).Value = WbKaynak.Range("G4").Value

WbHedef.Range("c" & x).Value = WbKaynak.Range("G5").Value

WbHedef.Range("d" & x).Value = WbKaynak.Range("G6").Value

WbHedef.Range("e" & x).Value = WbKaynak.Range("G7").Value

'... diğer hücreler

'hy Not: ilk sayfadaki bilgiler bitince kitabı kapatıp tekrar açmak gerek yada 4 ( kaç sayfadaki veri alınacaksa o kadar)farklı kaynak tanımlanmalı

'hedef sabit ama kaynak değişken olduğu için sayfa değiştikçe WbKaynak,WbKaynak2,WbKaynak3... şeklinde gitmeli

End Sub