¿Insertar una hoja de excel en la ultima posición?

Hola voy a agradecer mucho si alguien me puede apoyar con este macro
estoy colocando este código para agregar una hoja y que me pregunte el nombre pero quisiera saber como hacerle para que la hoja que agregue se coloque en la ultima posición y no en el principio
Dim nombreHoja As String
nombreHoja = InputBox("Escriba un nombre para la nueva hoja:")
If nombreHoja = "" Then Exit Sub
Dim hoja As Worksheet
Set hoja = ActiveWorkbook.Sheets.Add
hoja.Name = nombreHoja
Muchas gracias por la ayuda
Atentamente
Cedric