Private Sub UserForm_Initialize()
Dim i As Long, k As Byte
With ListView1
With .ColumnHeaders
.Clear
.Add , , Range("A1"), Range("A1").Width
.Add , , Range("B1"), Range("B1").Width, lvwColumnCenter
.Add , , Range("C1"), Range("C1").Width, lvwColumnCenter
.Add , , Range("D1"), Range("D1").Width, lvwColumnCenter
End With
End With
ListView1.View = lvwReport
For i = 2 To Range("A65536").End(xlUp).Row
If Cells(i, 1) > Date + 90 Then
ListView1.ListItems.Add , , Cells(i, 1)
For k = 2 To 4
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Cells(i, k)
Next
End If
Next
End Sub