Insertar filas y números faltantes de una secuencia.

[HR2022vw]

Buena tarde.

Digamos que tengo en G2 diferentes números de semana del año, empezando en la 1, saltando a la 5 en G3 y la 21 en G4, necesito insertar filas entre cada uno de los datos, insertando una fila con el número de semana 2 en G3, después el 3 en G4, 4 en G5, y así consecutivamente hasta el 5, después hasta el 21, etc. Respetando los números que ya tengo y tomando en cuenta solo de 1 al 52 que son las semanas del año.

Ayuda por favor! De antemano muchas gracias.

[JasallBcn]

Buenas, lo que entendi.

Cita

Sub meses()
Dim i As Long
 With Range("g1")
  For i = 1 To 52
    If .Offset(i, 0).Value > i Then
     .Offset(i, 0).Insert Shift:=xlDown
     .Offset(i, 0).Value = i
    ElseIf .Offset(i, 0).Value = "" Then
     .Offset(i, 0).Value = i
    End If
  Next
 End With
End Sub

saludos