Find the last item and select it

[snicho]

You could use the Match command like this:

[vba]Sub FindLastItem()
Dim MatchFound As Integer
On Error Resume Next
MatchFound = Application.Match("report", Columns(1), 0)
If MatchFound = 0 Then
MsgBox "No match found"
Else
MsgBox "Match found on row " & MatchFound
MsgBox "Selecting previous row..."
Range("a1").Offset(MatchFound - 2, 0).Select
End If
End Sub
[/vba]