Sono di nuovo qui nel chiedervi cortesemente un aiuto.
Con questo codice sotto riportato ( che ho trovato in rete) mi va a cancellare nel foglio Contatti l'ultima riga piena.
Dim cancel
cancel = MsgBox("Vuoi cancellare l'ultima riga?", vbExclamation + vbYesNo
If cancel = vbYes Then
sheets("Contatti").select
UR = Range("A" & Rows.Count).End(xlUp).Row
Rows(UR).ClearContents
MsgBox "Ultima riga cancellata."
End If
Il problema è: Io ho sul foglio Contatti le prime 3 righe "Intestazioni" dove ci sono dei dati fissi.
Quindi quando salvo dei dati, mi salva dalla riga quattro in poi.
Ma sei ho la quarta riga vuota e uso il codice su riportato, ecco qui nasce il problema.
Incomincia a cancellare la terza riga d'intestazione e così via.
Cè un modo per cancellare dall'ultima riga andando su senza cancellare le prime tre righe?
Grazie 1000