Quota:
Inviato da Alexsandra
copia questo codice in un modulo
Codice:
Sub ultima_riga2()
ultimar = Range("A" & Rows.Count).End(xlUp).Row
Rows(ultimar - 1).Insert Shift:=xlDown
End Sub
|
Fatto..ma mi porta un debug..
Codice:
Sub ultima_riga2()
ultimar = Range("A" & Rows.Count).End(xlUp).Row
Rows(ultimar - 1).Insert Shift:=xlDown
End Sub