Excel Sheets data copy and paste into one sheet

PS....I noticed that you would like to increment the inputs in Column A
Substitute with this code:

Option Explicit

Private Sub CommandButton1_Click()
Dim CopyFromPath As String, FileName As String, sNo As Long
Dim CopyFrom As Workbook, CopyToWb As Workbook, wb As Workbook
Dim rngNames As Range, rng As Range
Dim lRow As Long, nextrow As Long, r As Long, lRow2 As Long
Application.ScreenUpdating = False
CopyFromPath = "C:\Users\Sintek\Desktop\Reports\"
Set CopyToWb = Workbooks("Copy of Mainsheet.xlsm")
FileName = Dir(CopyFromPath & "*.xlsx")

Do While Len(FileName) > 0
    Set wb = Workbooks.Open(CopyFromPath & FileName)
    
    With wb.Sheets("Sheet1")
        lRow = .Cells(Rows.Count, "A").End(xlUp).Row
        For r = 2 To lRow
            .Range("B" & r & ":Z" & r).Copy
            nextrow = CopyToWb.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row + 1
             CopyToWb.Sheets("Sheet1").Range("B" & nextrow).PasteSpecial xlPasteAll
            CopyToWb.Sheets("Sheet1").Range("A" & nextrow) = nextrow - 1
        Next r
            Application.CutCopyMode = False
            wb.Close saveChanges:=False
    End With
    
    FileName = Dir
Loop
Application.ScreenUpdating = True
'ActiveWorkbook.Close saveChanges:=True
End Sub