Populate ListBox with Filtered Range

Hi,

I would like to fill my listbox with the date of the filtered sheet (column A)

here's what I'm using currently

Private Sub UserForm_Initialize()
TextBox1.Text = Sheets("Call Stats").Range("G3").Value

Dim i As Long, j As Long
  lastrow = 1
  For i = 1 To 3
      j = Sheets("Notes").Cells(Rows.Count, i).End(xlUp).Offset(1, 0).Row
      If lastrow < j Then lastrow = j
Next i

Sheets("Notes").Activate
ListBox1.RowSource = Range("A2" & lastrow & ":" & "C" & lastrow).Address
vntList = Sheets("Notes").Range("A2" & lastrow & ":" & "C" & lastrow)

ListBox1.ColumnWidths = "60;70;200"
TextBox2.Value = lastrow - 2
Sheets("Call Stats").Activate

End Sub

the problem I am having is that
1. the header is showing the first data row not my headers
2. when the filters change, it doesnt add just the filtered

here's a sample file: Book1.xlsmitems