Getting row of last user entry ?

Sub Test()    Dim arr         As Variant
    Dim temp        As Variant
    Dim i           As Long
    Dim j           As Long
    Dim p           As Long








    p = 1
    arr = Range("A1:D" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Value
    ReDim temp(1 To UBound(arr, 1), 1 To UBound(arr, 2))
    temp(p, 1) = "IDNO": temp(p, 2) = "NAME": temp(p, 3) = "CODE": temp(p, 4) = "TIME"




    For i = 2 To UBound(arr, 1)
        If i = UBound(arr, 1) Then Exit For
        If arr(i, 2) <> arr(i + 1, 2) Then
            p = p + 1
            For j = 1 To UBound(arr, 2)
                temp(p, j) = arr(i, j)
            Next j
        End If
    Next i




    Range("G1").Resize(p, UBound(temp, 2)).Value = temp
End Sub