Display data on sheet (with formatting) to Userform

[copythat]

I would like to show the data on sheet to Userform (code shown below). My problem is on the sheet, I analyze data with some codes such as matching/ conditional formatting, etc., but it cant display on the userform. I would like to ask if anybody know how to make it or if it's possible.

Thanks,

PS. the data shown on the Userform, the width of each column is quite big (not the size of textbox). I would like to adjust it if's possible. please help!

Private Sub UserForm_Initialize() 
     
    Dim rngData As Range 
    Dim lngRow As Long 
    Dim lngCol As Long 
     
    Set rngData = Range("R1:V17") 
    With ListBox1 
        .ColumnCount = rngData.Columns.Count 
         
        For lngRow = 1 To rngData.Rows.Count 
            For lngCol = 1 To rngData.Columns.Count 
                If lngCol = 1 Then 
                    .AddItem rngData.Cells(lngRow, lngCol).Text 
                Else 
                    .List(lngRow - 1, lngCol - 1) = rngData.Cells(lngRow, lngCol).Text 
                End If 
            Next 
        Next 
         
         
    End With 
     
End Sub