How to read headers from closed file and paste it in new sheet as column using VBA

Hello,
I have 10+ files in a folder. i wants to copy all files headers to new sheet as a column. i am able to do this . But i wants to copy file name and sheet name also i tried but not getting data.
plz see the attchments.
C1.JPG

Below is my code:

Public Sub CommandButton1_Click()
'DECLARE AND SET VARIABLES
Dim wbk As Workbook
Dim Filename As String
Dim Path As String
Dim mainwb As Workbook
Dim ws As Worksheet
 Dim search_result As Range   'range search result
    Dim blank_cell As Long
Dim wb As Workbook
'Path = "C:\Test\Input\"
'Filename = Dir(Path & "*.xls")
Workbooks("abc.xlsm").Activate
input_directory = Sheets("SystemConfiguration").Range("B2").Value & "\"
 Filename = Dir(input_directory & "*.xls")

'--------------------------------------------
'OPEN EXCEL FILES
 Do While Len(Filename) > 0  'IF NEXT FILE EXISTS THEN
    Set wbk = Workbooks.Open(input_directory & Filename)
    'MySheet = Application.Caller.Worksheet.Name
    'Set sh = MySheet()
   'Variable = ActiveSheet.Name
  ' Sheets(Variable).Range("A1:D1").Copy
    'Sheets("Sheet2").Column(B2).Select.Activate.Paste
   ' Sheets("Sheet2").Active
    'Columns("B2").Select
  Set wbk = ActiveWorkbook
  Filename = ActiveWorkbook.Name
  Variable = ActiveSheet.Name
 ' wbk.Sheets(Variable).Rows(1).EntireRow.Copy
 ActiveSheet.UsedRange.Rows(1).Copy

 Workbooks("newfile.xlsm").Activate
'ActiveWorkbook.ActiveSheet
 Set wb = ActiveWorkbook
  Set ws = wb.Sheets("Sheet1")
  
    For Each cell In ws.Columns(7).Cells
        If IsEmpty(cell) = True Then cell.Select: Exit For
    Next cell
 Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
 
' Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
    wbk.Close savechanges:=False
    Filename = Dir
Loop
End Sub