Objetct Required error; Please help

[kishoremcp]

I am using the following code to run a macro.
It runs fine but at last I get the error code as Object Required.
Please help me in fixing it.

Sub PALL()
'copia linha inteira com criterio
    Dim i As Range
    For Each i In Range("L1:L50000")
        If i.Value = "Ajay Kumar Deshmukh 10170226" Or i.Value = "Satish Kumar Karike 10172480" Or i.Value = "Sandeep Tekam 10172475" Or i.Value = "Makhan Rahul Singh 10170896" Or i.Value = "Abdul Muqtader Mohammed 10170254" Or i.Value = "Nagendra Kumar 10170887" Or i.Value = "Naveen Mandula 10170251" Or i.Value = "Waseem Mohammed 10169733" Or i.Value = "Rozeena Pirani 10172290" Or i.Value = "Prabhat R. 10171905" Or i.Value = "Avinash Barua 10171903" Or i.Value = "Prajesh Jena 10172473" Or i.Value = "Prabhat Kumar Rao 10171905" Then
            i.Select
            ActiveCell.Rows("1:1").EntireRow.Select
            Selection.Copy
            Sheets("PVlookup").Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial
        End If
    Next i
End Sub