VBA Find A Value in Column A, Copy That Row and One Below and Paste into New Columns

[mlb723]

Hi,

I have a sheet containing several thousand values all within column A. I want to sort through the information, find every instance where a value begins with "7021", copy that cell and the next one below it and paste them into column B and C respectively. Then, loop through the rest of the column to find all the occurrances.

A sample of the data looks like this:

7021-2000-001-01 BOM Unit
3A03-0103-102-00 03-103/39
79121009 WEB A
7021-2000-002-01 BOM Unit
3A03-0060-102-01 03-60/42, FP
7021-2000-002-02 BOM Unit
3A03-0058-136-00 03-58/22
79121009 WEB B
7021-2000-002-03 BOM Unit
3A03-0048-102-00 03-48/31
79121009 WEB C
7021-2000-002-04 BOM Unit
3A03-0055-102-00 03-55/32
79121009 WEB D
3A03-0055-102-00 03-55/32
799121009 WEB:CTN 1IN W


And, what I am hoping to see would be this:
Column AColumn B
7021-2000-001-01 BOM Unit 3A03-0103-102-00 03-103/39
7021-2000-002-01 BOM Unit3A03-0060-102-01 03-60/42, FP
7021-2000-002-02 BOM Unit 3A03-0058-136-00 03-58/22
7021-2000-002-03 BOM Unit 3A03-0048-102-00 03-48/31
7021-2000-002-04 BOM Unit 3A03-0055-102-00 03-55/32

Thanks in advance for your help!

-mlb723

[Chippy]

Please Login or Register  to view this content.

[mlb723]

Thank you very very much! This macro works beautifully. I really appreciate your help.