VBA to Sort and insert blank row based on criteria

[unknownymous]

Hi Guys,

Can you possibly help me out on the codes that I need to use? Newbie here..
I'm aiming to work on the following:
1. Sort by descending order and separate the Zero scores.
2. Next, sort it by Confirmation and separate the N (Confirmation) and add headers as well like those with "Y".

PS: The columns might be interchangeable so might be needing to be specific on the header name (Score, Confirmation etc.)


Before code execution.....

Name	Sports	Score	Confirmation
Taylor	Volleyball	10	Y
Ben	Basketball	20	Y
Stephen	Baseball	0	Y
Cara	Volleyball	6	N
Emma	Tennis	4	N

<tbody>
</tbody>

After code execution:

Name	Sports	Score	Confirmation
Ben	Baskell	20	Y
Taylor	Volleyball	10	Y
UNCONFIRMED
Name	Sports	Score	Confirmation
Cara	Volleyball	6	N
Emma	Tennis	4	N
ZERO SCORE
Stephen	Baseball	0	Y

<tbody>
</tbody>

Any help will be much appreciated...

 

[Fluff]

Glad to help & thanks for the feedback

 

[unknownymous]

Hi Fluff, one last favor...What if I want to add row color (black) & font (white) to the header names - UNCONFIRMED, NOT INCLUDED & NO SCORE for easy reference. Thank again for the help.

 

[Fluff]

Try adding this

   If FoundRow > 0 Then
      Rows(FoundRow).Resize(3).Insert
      Cells(FoundRow + 1, 1).Value = BreakData(i + 1)
      Range("A1:C1").Copy Range("A" & FoundRow + 2)
      [COLOR=#ff0000]With Range("A" & FoundRow + 2).Resize(, 3)
         .Interior.Color = vbBlack
         .Font.Color = vbWhite
      End With[/COLOR]
   End If

 

[unknownymous]

It worked! Thank you and happy weekend!

 

[Fluff]

And to you