Victor Perdomo respondió:
Sub insertarx() f = 22 While Cells(f, 2).Value <> "" f = f + 5 Wend Range("B17:G21").Copy Cells(f, 2).PasteSpecial Application.CutCopyMode = False End Sub
Elsa Matilde respondió:
La siguiente rutina se coloca en un módulo: Sub copiando() 'x Elsamatilde 'si la col C está vacía , la variable toma el valor 3, sinó toma el nro de col sgte a la última ocupada If Range("C13") = "" Then libre = 3 Else libre =...