Susunan kode berikut berfungsi menghapus tanggal-tanggal yang lamanya beberapa tahun sebelum tanggal pada hari ini. Adapun huruf X harus anda ganti dengan bilangan tahun yang akan tetap ditampilkan. Contohnya jika X = 2 maka tanggal-tanggal dalam kurun waktu dua tahun terakhir tidak akan terhapus.

Perintah macro ini dapat menjalankan tugasnya untuk mengidentifikasi tanggal-tanggal dengan baik meskipun daftar tanggal tersusun tidak berurutan.

Setelah dieksekusi, perintah macro ini bersifat permanen (tidak dapat diulangi/di-Undo), jadi pastikan agar anda benar-benar telah mengantisipasi jika terjadi kesalahan penghapusan barisan sel sebelum kode macro ini digunakan. Hal ini dapat dilakukan dengan cara membuat backup/salinan file tersebut di komputer anda.

Silakan tulis kode berikut pada module baru:
Sub HapusTahun()
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
Dim BarisFilter As Range, Tanggal As Date
Tanggal = DateSerial(Year(Date) - X, Month(Date), Day(Date))
Set BarisFilter = _
Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
BarisFilter.AutoFilter Field:=1, Criteria1:="<" & CDbl(Tanggal)
On Error Resume Next
With BarisFilter
.Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
Err.Clear
Set BarisFilter = Nothing
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub