Something like this

Sub FindAndCopy()
Dim wksFind As Worksheet
Dim wksPaste As Worksheet
Dim rngFind As Range
Dim rngToSearch As Range
Dim rngPaste As Range

Set wksFind = Sheets("Sheet1")
Set rngToSearch = wksFind.Cells
Set rngFind = rngToSearch.Find("That")
If rngFind Is Nothing Then
MsgBox "Not Found"
Else
Set wksPaste = Sheets("Sheet2")
Set rngPaste = wksPaste.Range("A1")
rngFind.Offset(2, 0).Copy rngPaste
End If

End Sub
--
HTH...

Jim Thomlinson


"Jimmy Pop" wrote:

Hello, I am a new Macro user and am trying to come up with one that
locates a "specific word" then will copy a cell located 2 cells down
from the specific word and paste it at another specified location.

Can anyone help?

Thanks,
Jimmy