Private Sub lstDataInit()
   Dim obj As Range
   Dim row As Long
   Dim col As Long
   Dim wc As String
   Dim i As Long
   Set obj = Sheets("Данные").UsedRange
   row = obj.Rows.Count
   col = obj.Columns.Count
   Set obj = obj.Range(Cells(2, 1), Cells(row, col))
   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

Set obj = obj.Range(obj.Cells(2, 1), obj.Cells(row, col))