Sorting Pattern

Originally Posted by seanyeap

Is there any macro?

firstly, don't forget to amend your original post to include a reference to any other forum you have posted this question to.

A macro

 Sub Macro1()
'
Dim I As Long, iLastRow As Long
iLastRow = ActiveSheet.Range("A65536").End(xlUp).Row
For I = 1 To iLastRow
    If Cells(I, 8).Interior.Pattern = xlGray16 Then
        Cells(I, 9).Value = 2
        Else: Cells(I, 9).Value = ""
        End If
    Next
End Sub

would do that.

---