duplicate rows,delete last rows

Sub test()
Dim myword As String
Dim c As Range
Dim myfound As Boolean
Dim myrow

myfound = False
myword = InputBox("Enter word to search for duplicates")
For Each c In Range("A1:A31")  ' change the range here  ***********
If c = myword And myfound = True Then
myrow = myrow & ", " & c.Row & ":" & c.Row
Else
If c = myword Then myfound = True
End If
Next
myrow = Right(myrow, Len(myrow) - 2)
Range(myrow).EntireRow.Delete
End Sub

Option Explicit

Sub delete_duprows()
'Erik Van Geit
'051220
'checks column CC for dups
'dup rows except first appearance are deleted

'EXAMPLE
'checking column 1
'START WITH
'a2  b2  c2
'a3  b3  c3
'a2  b4  c4
'a5  b5  c5
'a3  b6  c6
'TO GET
'a2  b2  c2
'a3  b3  c3
'a5  b5  c5

Dim LR As Long
Dim Rng As Range

'EDIT these 2 lines
Const CC As Integer = 1 'check column
Const FR As Long = 2    'first row with data

LR = Cells(Rows.Count, 1).End(xlUp).Row
Set Rng = Range(Cells(FR, CC), Cells(LR, CC))

Application.ScreenUpdating = False
Columns(CC).Insert
    With Rng.Offset(0, -1)
    .FormulaR1C1 = "=IF(COUNTIF(R" & FR & "C[1]:RC[1],RC[1])=1,1,"""")"
    'to remove all duplicates, first appearance included
    '.FormulaR1C1 = "=IF(COUNTIF(R" & FR & "C[1]:R" & LR & "C[1],RC[1])=1,1,"""")"
    .Value = .Value
    On Error Resume Next
    .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    On Error GoTo 0
    End With
Columns(CC).Delete
Application.ScreenUpdating = True

End Sub