Visual Basic para Aplicaciones - AYUDA CON VISUAL.

ESTO ES UNA MACRO PROGRAMADA MANUALMENTE, QUE INSERTA UNA FILA CADA 2 FILAS COMO PUEDO CODIFICAR ESTO PARA QUE SEA UN CICLO REPETITIVO QUE VALLA DE LA FILA 21 HASTA EL FINAL DE UNA LISTA
EJEMPLO
A B C
1 ASDSDS DSDS DFGFDGFD
2
3 RTRETR RTRTTR 4REWREWRE
4
5 SDSADSA F FSFDD ERER ERE
6
7 RWER WE WERWQE WEWQE WQ

DE ANTEMANO SE AGRADECE LA ATENCION PRESTADA.

Application.ScreenUpdating = False
Rows("22:22").Select
Selection.Insert Shift:=xlDown
Rows("24:24").Select
Selection.Insert Shift:=xlDown
Rows("26:26").Select
Selection.Insert Shift:=xlDown
Rows("28:28").Select
Selection.Insert Shift:=xlDown
Rows("30:30").Select
Selection.Insert Shift:=xlDown
Rows("32:32").Select
Selection.Insert Shift:=xlDown
Rows("34:34").Select
Selection.Insert Shift:=xlDown
Rows("36:36").Select
Selection.Insert Shift:=xlDown
Rows("38:38").Select
Selection.Insert Shift:=xlDown
Rows("40:40").Select
Selection.Insert Shift:=xlDown
Rows("42:42").Select
Selection.Insert Shift:=xlDown
Rows("44:44").Select
Selection.Insert Shift:=xlDown
Rows("46:46").Select
Selection.Insert Shift:=xlDown
Rows("48:48").Select
Selection.Insert Shift:=xlDown
Rows("50:50").Select
Selection.Insert Shift:=xlDown
Rows("52:52").Select
Selection.Insert Shift:=xlDown
Rows("54:54").Select
Selection.Insert Shift:=xlDown
Rows("56:56").Select
Selection.Insert Shift:=xlDown
Rows("58:58").Select
Selection.Insert Shift:=xlDown
Rows("60:60").Select
Selection.Insert Shift:=xlDown
Rows("62:62").Select
Selection.Insert Shift:=xlDown
Rows("64:64").Select
Selection.Insert Shift:=xlDown
Rows("66:66").Select
Selection.Insert Shift:=xlDown
Rows("68:68").Select
Selection.Insert Shift:=xlDown
Rows("70:70").Select
Selection.Insert Shift:=xlDown
Rows("72:72").Select
Selection.Insert Shift:=xlDown
Rows("74:74").Select
Selection.Insert Shift:=xlDown
Rows("76:76").Select
Selection.Insert Shift:=xlDown
Rows("78:78").Select
Selection.Insert Shift:=xlDown
Rows("80:80").Select
Selection.Insert Shift:=xlDown
Rows("82:82").Select
Selection.Insert Shift:=xlDown

Hola Moises, te toca estudiar un poco los temas de los ciclos, la siguiente macro hace lo que quieres, funciona bien salvo en dos casos que tienes que averiguar...

Public Sub InsertarFilas()
Dim lFilaInicio As Long
Dim lCuantasFilas As Long
Dim co1 As Long

'Aqui puedes cambiar la fila donde inicie tu lista
lFilaInicio = 21
'Aqui contamos las filas que se van a insertar
lCuantasFilas = Range(Cells(lFilaInicio, 1), Cells(lFilaInicio, 1).End(xlDown)).Rows.Count - 1
'Empezamos a insertar "despues" de la fila de inicio
lFilaInicio = lFilaInicio + 1
'Hacemos un ciclo por las filas a insertar
For co1 = 1 To lCuantasFilas
'Insertamos una fila completa
Rows(lFilaInicio).EntireRow.Insert
'Como se desplazo hacia abajo, la siguiente fila a insertar estara dos filas abajo
lFilaInicio = lFilaInicio + 2
Next co1

End Sub