Call the contents of Excel cells opened at the same time - button line feed

Sub Button 1_Click()

Dim wb As Workbook
Set wb = Workbooks("Excel.xlsx")
[W1] = wb.Sheets(6).Range("A" & wb.Sheets(6).Range("M1"))
wb.Sheets(6).Range("M1") = wb.Sheets(6).Range("M1").Value + 1

End Sub

'Excel.xlsx Forms opened at the same time

'Sheets(6) by Excel.xlsx No 6 Sheets

'M1 by Sheets(6) Inner cell address , Store line number

'W1 It is the address of the cell in the current table that needs to be displayed