Cargar datos buscando la ultima celda ocupada y que los agregue debajo de esa celda

Estoy tratando de realizar una programa que agregue datos a una tabla de excel. Ya tengo un poco avanzado mi código no funciona como requiero.

Éste código lo que hace es colocar en la celda A8 y B8 los valores que agrego respectivamente al textbox1 y 2, mi problema es que siempre lo coloca en el mismo sitio y quiero si en la celda D16 existen datos, los coloque en la celda A17 y B17. En pocas palabras, que busque la ultima celda ocupada en la celda D y los coloque en la siguiente Celda.

Espero me puedan ayudar, saludos!

Private Sub CommandButton1_Click()

   Dim po, proveedores As String
   po = TextBox1.Value
   proveedores = TextBox2.Value
   Sheets("Resultados").Select 'selecciona la hoja "datos"
   Range("D8").Select 'se posiciona en la celda D8
   Do While Not IsEmpty(ActiveCell) 'encuentra la ultima celda con datos
   ActiveCell.Offset(1, 0).Select 'Selecciona la celda de abajo 
   Exit Do
   Loop 'bucle
   ActiveCell.Offset(0, -3).Select
   ActiveCell = TextBox1 'copia el contenido del textbox1 a la celda activa
   ActiveCell.Offset(0, 1).Select 'B
   ActiveCell = TextBox2
   TextBox1 = ""
   TextBox2 = ""
   ListBox1.Clear
   Unload Me
   pruebas_funcionalesFI.Show
End Sub