Makro koji brishe poslednju vrednost u jednoj koloni

Moze pomoc?
Ovo je verovatno jednostavno ali ne uspevam da izguglam reshenje. Makro bi trebao da obrishe poslednju unetu vrednost u jednoj koloni.
Npr u koloni A se nalazi
1
2
3
4
5
6

a nova kolona bi trebala da izgleda

1
2
3
4
5

znachi makro bi trebao da obrishe poslednju celiju od dole.

A1 je prva gornja ćelija u koloni. Ovakav makro si mogao i da snimiš.

Sub PoslednjaCelijaBrisanje()

Worksheets("Sheet1").Range("A1").End(xlDown).Delete

End Sub

Pa nije kako treba. Treba da obrishe poslednji red, a ne da pomeri chitavu kolonu na gore za jedan red.

- Za početnike evo kratki tutorijal

- Brisanje posljednjeg reda koji sadrži podatke

a tebi evo VBA code