I want a Word Macro that can find a word in a document then select everything from the end of that line that word was found in to the top of the document. Then do a copy and paste special to text. Here's what I have so far but once it moves to the top nothing is selected. Any suggestion?

signed confused.

Sub test3()
With ActiveDocument.Content.Find
.Text = "Safety Stock"
.Forward = True
.Execute
If .Found = True Then
.Parent.Select
Selection.Expand wdLine
myRange = Selection

End If

End With

ThisDocument.Bookmarks("\StartOfDoc").Select

End Sub