Option Explicit

Private Sub UserForm_Initialize()
    Dim ColCnt As Long
    Dim rng As Range
    Dim ColWidths As String
    Dim i As Long


    With ThisWorkbook.Sheets("Sheet1")
    Set rng = Range("A1", .Range("A2").End(xlDown))
    End With

        With Me.lbxRange
        .ColumnCount = 1
        .RowSource = rng.Offset(5).Resize(rng.Rows.Count - 1).Address
    End With
End Sub