Selecting the Last Row of a Column

[zaska]

I want to select the last Row of Column A where the data " CORRECT " ENDS.


Column A

POWER
POWER
CORRECT
CORRECT
CORRECT
CORRECT
CORRECT
CORRECT
INCORRECT
INCORRECT

I want to select the last row number of Correct

At present i am manually Selecting it

Rows("686:686").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents

<table width="64" border="0" cellpadding="0" cellspacing="0"><col width="64"><tr height="17"> <td style="height:12.75pt;width:48pt" width="64" height="17">

</td> </tr></table>

 

[VoG]

Deleted - I misread the question.

 

[MrKowz]

Try:

Range("A:A").Find("Correct", LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlPrevious).Select

 

[zaska]

Thanks..

What would be the Code..If i want to delete all the Rows after the Cell Value " Correct "

I want to delete Data after "Correct" in range " A:O"

 

[MrKowz]

If I understood your request properly, try:

Public Sub DelAfterCorrect()
Dim rng As Range, _
    LR  As Long
Set rng = Range("A:A").Find("Correct", LookIn:=xlValues, Lookat:=xlWhole, SearchDirection:=xlPrevious)
If Not rng Is Nothing Then
    LR = Range("A" & rows.Count).End(xlUp).Row
    Range(rng.Offset(1, 0), Cells(LR, "O")).ClearContents
End If
End Sub