Private Sub lstDataInit()
   Dim obj As Range
   Dim col As Long
   Dim wc As String
   Dim i As Long
   Set obj = Sheets("Данные").UsedRange
   col = obj.Columns.Count
   wc = ""
   For i = 1 To col
      wc = wc & Round(obj.Cells(1, i).Width, 0) & ";"
   Next
   With lstData
      .ColumnCount = col
      .ColumnWidths = wc
      .RowSource = obj.Address
      .ListIndex = 0
      .ColumnHeads = True
      .Left = 2
      .Width = Me.InsideWidth - 4
      .Height = Me.InsideHeight - .Top - 15
   End With
End Sub