VBA code to find last entry on a certain date and bring back the text in the adjacent

[pedros23]

Hi Alan,

Thanks for the reply, however when I run the macro I get a Run-time error 9 - Subscript out of range.

The following is highlighted

lr = Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Row