¿Mi control de formulario solo captura en una sola fila alguien que me asesore?

Buenas tardes, estoy empezando con la programación vba en excel, actualmente estoy elaborando un control de formularios el cual captura los datos que se le ingresan, el problema es que al momento de que capture los datos los captura en la misma fila, encontré una solución, pero solo insertaba un renglón y lo dejaba en blanco, lo que quiero que haga es que busque la ultima fila activa y en la siguiente fila ingrese los datos y así sucesivamente.

Este es el código hecho solo para que capture los datos

Private Sub captura_Click()
Range("B5").Select
ActiveCell.FormulaR1C1 = orden
Range("C5").Select
ActiveCell.FormulaR1C1 = lista1
Range("A5").Select
ActiveCell.FormulaR1C1 = fecha
Range("D5").Select
ActiveCell.FormulaR1C1 = cantidad
Dim rango As Range
Set rango = Range("A5")
ActiveCell.Offset(1, 0).Select
orden = ""
lista1 = ""
fecha = ""
cantidad = ""
End Sub

agradecería mucho su ayuda, ya que llevo días atorado en este problema.

Gracias!!