More Than One Reference Workbooks To Copy Cells To One Workbook / Macro

I have Book1 (reference workbook) and Book2 (where i copy values from Book1)

Now I have macro to fetch the datas and paste the values in the format below.

But I can only doing this for one reference workbooks. But i need to add more reference workbooks in a file and paste to Book2. (etc: Book1, Book3, Book4, ....... to Book2)

Book2 looks like:

A1 B1 C1 D1
Name Adress Age Sex
Ozan xxxxxx 27 M

Here' s the Code.

Option Explicit
Sub TransferData()
Dim wkb As Workbook, wks As Worksheet, LastRow As Long
Dim FilePath As String, FileName As String
Dim ws As Worksheet, blnOpened As Boolean
'Change these variables as desired...

[Code] ........