Sub Move_Row()

Dim rngColA As Range
Dim rngToFind As Range
Dim strTofind As String

strTofind = "INIT"

With Sheets("Sheet1")
Set rngColA = .Columns("A:A")
Set rngToFind = rngColA.Find(What:=strTofind, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)

If Not rngToFind Is Nothing Then
rngToFind.EntireRow.Cut
.Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Insert
Else
MsgBox "Did not find " & strTofind
End If
End With

End Sub

--
Regards,

OssieMac


"HelpMe" wrote:

Hi,

I would like to find a value in column A that is = "INIT", once that is
found, I need the entire row moved to the bottom of the sheet. This row needs
to become the last row and row be deleted from where it was found initially
I will only have one "INIT" value in column A so as soon as that is found, I
need to move the row.

Please please help!