preciso inserir linhas em uma planilha via vba.
Gravei uma macro para ver como poderia fazer e obtive o resultado abaixo:
Código: Selecionar todos
Rows("6:6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("8:8").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
tentei fazer desta forma:
Código: Selecionar todos
Dim I As Integer
i = 4
While Range("A" & i).Value <> ""
Rows("i:i").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
i = i + 2
Wend
erro tempo execução 10004 - erro de definição de aplicativo ou de definição de objeto.
Acredito que seja por conta da variável, mas não tenho ideia de como declará-la.
Por favor, podem me ajudar,
obrigado! abraços!