Public Sub CommandButton1_Click()

Dim *Data* As FileDialog
Set *Data* = Application.FileDialog(msoFileDialogOpen)
Dim *FileName* As String[***]
If *Data*.Show = -1 Then[***]
*FileName* = Data.SelectedItems(1)[***]
End If

Dim *KlientList* As Workbook[***]
Dim *KlientInfo* As Workbook[***]
Dim *DataX* As Worksheet[***]
Dim *MyData* As Worksheet[***]
Set *KlientList* = Workbooks.Open(*FileName*)[***]
Set *KlientInfo* = ThisWorkbook
Set *DataX* = *KlientList*.Sheets("Sheet1")[***]
Set *MyData* = *KlientInfo*.Sheets("Sheet1")[***]

*LastRow* = Range("A1").End(xlDown).Row[***]
*LastCol* = Range("A1").End(xlToRight).Column[***]
*DataX*.Range(*DataX*.Cells(1, 1), *DataX*.Cells(*LastRow*, *LastCol*)).Copy Destination:=*MyData*.Range(*MyData*.Cells(1, 1), *MyData*.Cells(*LastRow*, *LastCol*))[***]

ActiveWorkbook.Close

Dim cell As Range
For Each cell In Worksheets("Sheet1").Range(*MyData*.Cells(2, 1), *MyData*.Cells(*LastRow*, 1)) [***]
    ListBox1.AddItem cell.Value
Next cell

End Sub