creacion de hojas en excel (problemas para escribir datos sobre la hoja creada)

Grupo tengo la necesidad de crear hojas en excel en base a un formato, y
cada renglon me llenara una hoja de las que yo cree con codigo

preguntas

1.- cuantas hojas me soporta un libro?

2.- la primera hoja se crea muy bien pero a partir de la segunda me crea la
hoja pero los datos me los pone en la primera que creeo, y le doy select a
la hoja nueva para que me los coloque en ella pero no funsiona, les anexo
parte del codigo.

Private Sub BtnFormatos_Click()
Dim vlI As Double
Dim vlContHoja As Integer
vlI = 2
vlContHoja = 5
Do While Sheet2.Cells(vlI, 1) <> ""
If Sheet1.Cells(16, 3) = Sheet2.Cells(vlI, 61) Then
Sheets("SOL").Select
Sheets("SOL").Copy After:=Sheets(4)
Sheets(vlContHoja).Select
Sheets(vlContHoja).Name = Sheet2.Cells(vlI, 1)


' este codigo llena la hoja con los datos del renglon que
coincidio
Sheets(vlContHoja).Cells(10, 32) = Sheet2.Cells(vlI, 1)
Sheets(vlContHoja).Cells(11, 7) = "X"



de antemano gracias por su ayuda

saludos
jrlopdom