Moving data down or up to row 10

[tonywatsonhelp]

Hi Everyone,
I have the need for a macro that will goto to the active sheet,
look down column A
Find the cell that contains the word "Time" (this is the entire contents)
then move everything up or down so "Time" is in column A

So a few rule that might help,
Column A will Always Have the last row of data,
The data is in column A:DZ
only one cell in Column A will hold the Word "Time"
Moving the data is only everything from the "Time" row down, Time should be the very first row and can be any row in the sheet

thanks

Tony

 

[Yongle]

Test on a COPY of your data
- your explanation is not complete

is this what you want

Sub MoveData()
    Dim FoundRow As Long, MoveToRow As Long: MoveToRow = 10
   
    On Error GoTo TheEnd
        FoundRow = Range("A:A").Find("Time", LookIn:=xlValues, lookat:=xlWhole).Row
    On Error GoTo 0

    If MoveToRow > FoundRow Then MoveToRow = MoveToRow + 1
    If MoveToRow <> FoundRow Then
        Rows(FoundRow).Cut
        Rows(MoveToRow).Select
        Selection.Insert Shift:=xlDown
        Range("A" & MoveToRow).Select
    End If

Exit Sub
TheEnd:
    MsgBox "Not found", vbExclamation, "oops"
End Sub

 

[tonywatsonhelp]

Thanks yondle,
this look perfect thank you,
Tony