Showing rows in listbox that are older than 2 months based and delete

Hi Excel Ninjas!

I am having an issue where I can't seem to figure out how to fill a listbox with rows that only 2 months old based/compare the data value to a Now() function in row "R". I also would like to multiselect the values and click delete to remove them from the sheet ("Test").

I have headers on A1 to M, data starts on row 2. Also my Listsource is a dynamic list name"ItemList". I am tinkering this code, but no success.

Sub DeleteData()

Dim i as integer
Dim rng as Range

last = Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Range("A1:A" & last)

For i = last To 1 Step -1
If rng(i).Value = Listbox1.value Then 
rows(i).Entirerow.Delete
End If
Next

End Sub

Results: nothing. Selected items are not deleting from sheet "Test".

Thank you!

Welcome to the forum, sniper1.

The yellow banner at the top of the page explains how to add an example file.

Also could you please add Code Tags to your 1st post. Select your code, then press the # button.

Edit Mod : Thank you, the tags were added by moderation