Find string and offset copy

Try this:

Sub test()
'Get zip from Data sheet & Copy
    Sheets("data").Cells.Find("zip").Offset(0, 1).Copy
'Paste to Tool sheet
    Sheets("Tool").Range("D10").PasteSpecial
    Application.CutCopyMode = False
End Sub