List all instances of a value from a list of mixed values to separate tab

[clamont7]

I have a column of data on a tab called "Data Dump" in column A. The column contains 5 different product codes. I'm trying to do something along the lines of:

If A2 on the "Data Dump" tab equals "S-7", copy and paste A2, B2, C2, and D2 to a new tab called "S-7" starting with cell A9.
Do this the whole way down the column on the "Data Dump" tab for "S-7"

Ex.
Data Dump New Tab
S-7 S-7
S-7 S-7
S-7 S-7
T-C S-7
T-C S-7
W-1
S-7
S-7

I can't seem to get them listed like above (without empty spaces between matches). Any help would be greatly appreciated!

 

[clamont7]

Your assumption was right about column A having additional data. I just didn't recognize it because the cell contents were blank, they had formulas in them, which was throwing off the code. Thanks again everyone for all the help!

 

[Peter_SSs]

.. the cell contents were blank, ..

Try making this change to the code

For i = 1 To uba
  If Len(a(i, 1)) > 0 Then d(a(i, 1)) = Empty
Next i