Run Time Error 424, help defining objects

Looking for help on this code that is returing a run time error 424.

Code:

---

Sub IndexInfo()
'
' Loops through data and finds matches and then indexs information
'
Dim J As Integer
Dim P As Integer
Dim v As Integer
IRowL = Cells(Rows.Count, 1).End(xlUp).Row


Dim sht As Worksheet
Set Master = ThisWorkbook.Sheets("Master")




For J = 1 To IRowL
    For v = 21 To 50
        For P = 1 To IRowL


If cell.Value(11, J) = Master.cell.Value(1, P) And cell.Value(v, P) = Master.cell.Value(v, P) Then


cell.Value(30, J) = Master.cell.Range(2, P) And cell.Value(31, J) = Master.cell.Range(v, 1)
   
Else
 End If
    Next P
      Next v
        Next J


End Sub

---