Pretty much how it looks, may not be exact.
So I press command button, file explorer opens, click the workbook I want then it copies the A column which is the 7-8 digits.
Dim FileToOpen As Variant
Dim OpenBook As Workbook
Dim Last As Long
Application.ScreenUpdating = False
FileToOpen = Application.GetOpenFilename (Title:”Workbook”, FileFilter:="Excel Files(*.xls*),*xls*")
If FileToOpen <> False Then
Set OpenBook = Application.Workbooks. Open(FileToOpen)
Last = OpenBook.Sheets (1). Range (“A” & Rows.Count). End(xlUp) .Row
OpenBook.Sheets (1). Range("A:A” & Last).Copy
ThisWorkbook. Worksheets(“Sheet01).Range("A" & Rows.Count).End(x1Up).Offset(1, 0). PasteSpecial xlPasteValves
OpenBook.Close False
End IF
Application.ScreenUpdating = True
End Sub