Object variable not set

I believe what Shg is suggesting is:

If Not rgCell Is Nothing then
    If Cells(Val(rgCell.Row + 1), rgCell.Column) = year2 Then
...
    End if
End if