Private Sub UserForm_Initialize()
Dim p As Range, R As Range
Dim LwItem, dCol
Set p = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
With ListView1
For Each R In [A1:C1]
Set dCol = .ColumnHeaders.Add(, , R.Value)
dCol.Width = .Width / 3
Next
For Each R In p
Set LwItem = .ListItems.Add(, , R.Value)
LwItem.SubItems(1) = R.Offset(, 1).Value
LwItem.SubItems(2) = R.Offset(, 2).Value
Next
.View = 3
End With
Label4 = " " & Application.CountIf(p, "A")
Label5 = " " & Application.CountIf(p, "B")
Label6 = " " & Application.CountIf(p, "C")
End Sub