Copy cell from on sheet to another If the cells starts with **

[John Swift]

Hello and thank you for your help in advance any input is greatly appreciated.

Basically (or not so in my case) I was wondering if it possible to create a Macro that would Copy and Paste Data from one sheet to another in the same Workbook if the the cell starts with AA,BB,CC or DD and Put that "Data" in its already named sheet. The beginning of each cell can change so some times the data my be AB or CE or DE depending on the situation but the data will only be in four different iterations i.e. CD EG GH HH and so on. (Ican chge this in the macro)

Example of the data I have

From a sheet named "Data" (All Data is in Column A and starts from Row 1 and can be unto 10,000 Rows in length)

BB01465178
AA11111547
AA13579456
BB45765135
CC45612347
DD46785947
DD13546878
CC17846597

Result

Sheet "Data AA"

AA11111547
AA13579456

Sheet "Data BB"

BB01465178
BB45765135

Sheet "Data CC"

CC17846597
CC45612347

Sheet "Data DD"

DD13546878
DD46785947

This Macro would ideally search though all of Columns A and find all the Cells starting with AA from sheet "Data" and copy them into a sheet named "AA Data" into Column A then copy all the Cells that start with BB from sheet "Data" and copy them into the sheet "BB Data" into Column A and so on till all four sheets have been done.

In regards to how the macro does this it really does not matter i.e. if it deletes the data or leaves it or even if the macro only works with one set of data and I have to run the macro 4 separate times it does not matter all long as the outcome is the same.

Again I really appreciate any input into this matter and thank you for your help.