Macro to Copy Cell Adjacent in One Sheet and Paste in Another Sheet

[JPatty]

I have a worksheet that has only one that contains the "shipping". I need to copy the cell in the same row 6 columns to the right, then paste in another sheet labeled "Data".
Thank you in advance for any help.

Name	Acct	Code	Type	Name2	Address	Address2	City	State	Zip
US Corp	123456​	0001	Shipping	US Corp DC	123 W. Business St	Ste 300	NYC	NY	01234
China Corp	123457​	0002	Receiving	China Corp DC	124 W. Business St	Ste 301	China City	N/A	N/A
Canada Corp	123458​	0003	Receiving	Canada Corp DC	125 W. Business St	Ste 302	Canada City	N/A	N/A
Brazil Corp	123459​	0004	Receiving	Brazil Corp DC	126 W. Business St	Ste 303	Brazil City	N/A	N/A
UK Corp	123460​	0005	Receiving	UK Corp DC	127 W. Business St	Ste 304	UK City	N/A	N/A
Germany Corp	123461​	0006	Receiving	Germany Corp DC	128 W. Business St	Ste 305	Germany City	N/A	N/A
Italy Corp	123462​	0007	Receiving	Italy Corp DC	129 W. Business St	Ste 306	Italy City	N/A	N/A
Mexico Corp	123463​	0008	Receiving	Mexico Corp DC	130 W. Business St	Ste 307	Mexico City	N/A	N/A
Poland Corp	123464​	0009	Receiving	Poland Corp DC	131 W. Business St	Ste 308	Poland City	N/A	N/A
Russia Corp	123465​	0010	Receiving	Russia Corp DC	132 W. Business St	Ste 309	Russia City	N/A	N/A
Peru Corp	123466​	0011	Receiving	Peru Corp DC	133 W. Business St	Ste 310	Peru City	N/A	N/A
Australia Corp	123467​	0012	Receiving	Australia Corp DC	134 W. Business St	Ste 311	Australia City	N/A	N/A
Thailand Corp	123468​	0013	Receiving	Thailand Corp DC	135 W. Business St	Ste 312	Thailand City	N/A	N/A
Vietnam Corp	123469​	0014	Receiving	Vietnam Corp DC	136 W. Business St	Ste 313	Vietnam City	N/A	N/A
Holland Corp	123470​	0015	Receiving	Holland Corp DC	137 W. Business St	Ste 314	Holland City	N/A	N/A
Egypt Corp	123471​	0016	Receiving	Egypt Corp DC	138 W. Business St	Ste 315	Egypt City	N/A	N/A
South Africa Corp	123472​	0017	Receiving	South Africa Corp DC	139 W. Business St	Ste 316	South Africa City	N/A	N/A

 

[mumps]

Try:

Sub CopyData()
    Cells(Range("D:D").Find("Shipping").Row, 5).Resize(, 6).Copy Sheets("Data").Cells(Sheets("Data").Rows.Count, "A").End(xlUp).Offset(1)
End Sub