Columna_Libre en macro

Quiero modificar esta macro para enumerar a partir de la celda A2,A3,A4...los
datos introducidos mediante la hoja1 "Formularios" a la hoja2 "Equipos" que
cuenta con 5 columnas tituladas asíi:

A B C D E
1 Equipo Rama División Días Juego Horario
2
3

... y la necesito así:

A B C D E F
1 No. Equipo Rama División Días Juego Horario
2
3

Espero ser claro, muchas gracias por la ayuda que puedan dar...



Sub equipos_form()
Dim linea_libre As Long

Application.ScreenUpdating = False

Sheets("Equipos").Select
linea_libre = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(linea_libre, 1).Value = Sheets("Formularios").[I2]
Cells(linea_libre, 2).Value = Sheets("Formularios").[I3]
Cells(linea_libre, 3).Value = Sheets("Formularios").[I4]
Cells(linea_libre, 4).Value = Sheets("Formularios").[I5]
Cells(linea_libre, 5).Value = Sheets("Formularios").[I6]
Sheets("Formularios").Select

Application.ScreenUpdating = True

MsgBox "Se ha agregado el equipo " & Sheets("Formularios").[I2]

End Sub



Saludos,
Raúl Espinosa
México, D.F.