Excel e righe

[Edipo]

Salve a tutti voi.
Avrei bisogno del vostro aiuto per realizzare un pezzo di codice che andrà a comporre una complicata macro.
In pratica, io seleziono un numero di celle variabile in una sola colonna e devo riuscire ad eliminare tutte le righe corrispondenti alle celle selezionate tranne la prima riga e deve rimanere attiva la prima cella in alto delle selezione iniziale.
Veloce esempio:
Seleziono C3:C5
Eseguo la macro
Rimane selezionata e attiva la cella C3 ma vengono eliminate le righe 4 e 5.
La colonna sarà sempre la C ma il numero di celle selezionate e la loro posizione è variabile
Qual è il codice VBA più semplice e pulito per realizzare questa operazione?
Grazie

__________________
Mai visto un regalo mamma così? (hochzeitsgeschenke in tedesco), equazione di NERNST, fulgieri strass

[c1b8]

Questo il primo codice che mi viene in mente:

Codice: Seleziona tutto

Sub Macro1()
   
    n = Selection.Rows.Count
    For i = 2 To n
        Selection.Rows(2).Delete
    Next
   
End Sub


[Edipo]

sembra perfetto...!
vado a provarlo
grazie intanto
ciao

[phylum]

Per curiosita':
quanto-te-fruttare il pay-per-click ?