Insertar hoja a la derecha

Que tal,
Tengo esta macro la cual copia los datos de mi hoja, pide el nombre para insertar una nueva, una vez puesto el nombre me copia los datos en la nueva, pero inserta la hoja hacia la izquierda, me gustaría saber como insertar la hoja hacia la derecha, ¿qué le falta a mi macro?
Sub NuevaHoja()
Cells.Select
Selection.Copy
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
Range("A1").Select
ActiveSheet.Paste
Range("G8").Select
Sheets("JULIO").Select
Sheets("JULIO").Name = "JULIO"
Range("O2").Select
ActiveSheet.Paste
End Sub