revise VBA code to work with another set of data

[Estatefinds]

So for the following data: The individual alpha numerical values are in columns BX Through CB.
so I need THIS macro to be revised to list the remaining uncolored alpha numeric data but instead of the alpha numeric its self listed it would be the position in which it sits. and place the list in column CC on the same row its starts reading the data from top to bottom. please thank you!!!
Code is way at the bottom.

BW	BX	BY	BZ	CA	CB	CC
C9-C6-E1-D14-D8	C9	C6	E1	D14	D8
A1-B1-C1-B4-D6	A1	B1	C1	B4	D6
A15-B19-A14-C1-D1	A15	B19	A14	C1	D1
A35-D1-D9-E4-D7	A35	D1	D9	E4	D7
A4-A7-A15-C7-E6	A4	A7	A15	C7	E6
A7-B5-B3-B2-D6	A7	B5	B3	B2	D6
A7-B23-C1-C2-C4	A7	B23	C1	C2	C4
B10-B8-B4-D2-D11	B10	B8	B4	D2	D11
B18-B8-C4-E6-E1	B18	B8	C4	E6	E1
B22-A1-C17-D6-E9	B22	A1	C17	D6	E9
C11-C39-C17-E5-E3	C11	C39	C17	E5	E3
A7-B1-D2-E1-E5	A7	B1	D2	E1	E5
B1-C4-D17-C2-E9	B1	C4	D17	C2	E9
A8-A2-A1-C5-E4	A8	A2	A1	C5	E4
D2-C1-D6-E6-E9	D2	C1	D6	E6	E9
B10-C7-C4-D2-D7	B10	C7	C4	D2	D7
C1-B4-B3-B20-E17	C1	B4	B3	B20	E17
A3-A12-C6-D11-E5	A3	A12	C6	D11	E5
A4-D3-E9-D1-E1	A4	D3	E9	D1	E1
B3-C5-C1-E10-E6	B3	C5	C1	E10	E6
A4-A20-D4-D13-E25	A4	A20	D4	D13	E25
A2-B2-A12-D5-D9	A2	B2	A12	D5	D9
C9-B11-D1-E12-E2	C9	B11	D1	E12	E2
A2-B1-B7-B14-E12	A2	B1	B7	B14	E12
A4-C1-C6-C4-D1	A4	C1	C6	C4	D1
A1-A2-A7-E3-E40	A1	A2	A7	E3	E40
A4-B1-C3-D6-D1	A4	B1	C3	D6	D1
A8-A14-B1-E4-C13	A8	A14	B1	E4	C13
A3-C8-C6-C13-E2	A3	C8	C6	C13	E2
B13-B17-C3-C16-D6	B13	B17	C3	C16	D6
B30-B2-D1-D20-E2	B30	B2	D1	D20	E2
B7-A3-C11-D29-C2	B7	A3	C11	D29	C2
C6-B33-D6-C5-E22	C6	B33	D6	C5	E22
A4-A3-B1-D1-E4	A4	A3	B1	D1	E4
B1-D17-D6-C1-E2	B1	D17	D6	C1	E2
B4-A10-D1-E4-E3	B4	A10	D1	E4	E3
C10-E6-D1-D3-D5	C10	E6	D1	D3	D5
C2-B8-D16-B4-E7	C2	B8	D16	B4	E7
A9-A1-B15-B2-E3	A9	A1	B15	B2	E3
A4-A3-C8-E1-D6	A4	A3	C8	E1	D6
A10-D2-C10-C4-D4	A10	D2	C10	C4	D4
B10-D7-E22-D15-E2	B10	D7	E22	D15	E2
A2-B7-B1-C1-D1	A2	B7	B1	C1	D1
B4-B1-D3-B14-E7	B4	B1	D3	B14	E7
B27-A13-E2-E14-E20	B27	A13	E2	E14	E20

<colgroup><col><col span="5"><col></colgroup><tbody>
</tbody>

A1	B1	C1	D1	E1
A2	B2	C2	D2	E2
A3	B3	C3	D3	E3
A4	B4	C4	D4	E4
A5	B5	C5	D5	E5
A6	B6	C6	D6	E6
A7	B7	C7	D7	E7
A8	B8	C8	D8	E8
A9	B9	C9	D9	E9
A10	B10	C10	D10	E10
A11	B11	C11	D11	E11
A12	B12	C12	D12	E12
A13	B13	C13	D13	E13
A14	B14	C14	D14	E14
A15	B15	C15	D15	E15
A16	B16	C16	D16	E16
A17	B17	C17	D17	E17
A18	B18	C18	D18	E18
A19	B19	C19	D19	E19
A20	B20	C20	D20	E20
A21	B21	C21	D21	E21
A22	B22	C22	D22	E22
A23	B23	C23	D23	E23
A24	B24	C24	D24	E24
A25	B25	C25	D25	E25
A26	B26	C26	D26	E26
A27	B27	C27	D27	E27
A28	B28	C28	D28	E28
A29	B29	C29	D29	E29
A30	B30	C30	D30	E30
A31	B31	C31	D31	E31
A32	B32	C32	D32	E32
A33	B33	C33	D33	E33
A34	B34	C34	D34	E34
A35	B35	C35	D35	E35
A36	B36	C36	D36	E36
A37	B37	C37	D37	E37
A38	B38	C38	D38	E38
A39	B39	C39	D39	E39
A40	B40	C40	D40	E40
A41	B41	C41	D41	E41
A42	B42	C42	D42	E42
A43	B43	C43	D43	E43
A44	B44	C44	D44	E44
A45	B45	C45	D45	E45
A46	B46	C46	D46	E46
A47	B47	C47	D47	E47
A48	B48	C48	D48	E48
A49	B49	C49	D49	E49
A50	B50	C50	D50	E50
A51	B51	C51	D51	E51
A52	B52	C52	D52	E52
A53	B53	C53	D53	E53
A54	B54	C54	D54	E54
A55	B55	C55	D55	E55
A56	B56	C56	D56	E56
A57	B57	C57	D57	E57
A58	B58	C58	D58	E58
A59	B59	C59	D59	E59
A60	B60	C60	D60	E60
A61	B61	C61	D61	E61
A62	B62	C62	D62	E62
A63	B63	C63	D63	E63
A64	B64	C64	D64	E64
A65	B65	C65	D65	E65
A66	B66	C66	D66	E66
A67	B67	C67	D67	E67
A68	B68	C68	D68	E68
A69	B69	C69	D69	E69
A70	B70	C70	D70	E70
A71	B71	C71	D71	E71
A72	B72	C72	D72	E72
A73	B73	C73	D73	E73
A74	B74	C74	D74	E74
A75	B75	C75	D75	E75
A76	B76	C76	D76	E76
A77	B77	C77	D77	E77
A78	B78	C78	D78	E78
A79	B79	C79	D79	E79
A80	B80	C80	D80	E80
A81	B81	C81	D81	E81
A82	B82	C82	D82	E82
A83	B83	C83	D83	E83
A84	B84	C84	D84	E84
A85	B85	C85	D85	E85
A86	B86	C86	D86	E86
A87	B87	C87	D87	E87
A88	B88	C88	D88	E88
A89	B89	C89	D89	E89
A90	B90	C90	D90	E90
A91	B91	C91	D91	E91
A92	B92	C92	D92	E92
A93	B93	C93	D93	E93
A94	B94	C94	D94	E94
A95	B95	C95	D95	E95
A96	B96	C96	D96	E96
A97	B97	C97	D97	E97
A98	B98	C98	D98	E98
A99	B99	C99	D99	E99
A100	B100	C100	D100	E100

<colgroup><col width="62" span="5" style="width:47pt"> </colgroup><tbody>
</tbody>

Sub ListCells()
Dim FirstRow As Long, ResultRow As Long, r As Long, c As Long


FirstRow = -1
For r = 1 To 1000
If Cells(r, "BB") <> "" Then
If FirstRow = -1 Then
FirstRow = r - 1
ResultRow = r
End If
For c = 54 To 58
If Cells(r, c).Interior.ColorIndex = xlNone Then
Cells(ResultRow, "BH") = Chr(c + 11) & r - FirstRow
ResultRow = ResultRow + 1
End If
Next c
End If
Next r

End Sub

 

[Eric W]

Try this:

Sub ListCells()
Dim FirstRow As Long, ResultRow As Long, r As Long, c As Long
Dim SearchRange As Range, ResultRange As Range, SearchCol As Long, ResultCol As Long


    Set SearchRange = Range("BX1")
    Set ResultRange = Range("CC1")
    SearchCol = SearchRange.Column
    ResultCol = ResultRange.Column
    
    FirstRow = -1
    For r = 1 To 1000
        If Cells(r, SearchCol) <> "" Then
            If FirstRow = -1 Then
                FirstRow = r - 1
                ResultRow = r
            End If
            For c = SearchCol To SearchCol + 4
                If Cells(r, c).Interior.ColorIndex = xlNone Then
                    Cells(ResultRow, ResultCol) = Chr(c - SearchCol + 65) & r - FirstRow
                    ResultRow = ResultRow + 1
                End If
            Next c
        End If
    Next r


End Sub

It's immaterial whether the data is numeric or alphanumeric, since we're just looking at the highlighting. The search column and result column are in red in the code so you can adapt this to other locations if you need to.

 

[Estatefinds]

Thank you very much!!!! I appreciate it!!!!!

I have one more request , please.
using same code and same columns of data, but this time listing the actual data and result it to column CD.
Thank you in advance!!!

 

[Estatefinds]

Listing the actual data remaining that is uncolored into column CD.

 

[Eric W]

Sub ListCells()
Dim FirstRow As Long, ResultRow As Long, r As Long, c As Long
Dim SearchRange As Range, ResultRange As Range, SearchCol As Long, ResultCol As Long


    Set SearchRange = Range("BX1")
    Set ResultRange = Range("CD1")
    SearchCol = SearchRange.Column
    ResultCol = ResultRange.Column
    
    FirstRow = -1
    For r = 1 To 1000
        If Cells(r, SearchCol) <> "" Then
            If FirstRow = -1 Then
                FirstRow = r - 1
                ResultRow = r
            End If
            For c = SearchCol To SearchCol + 4
                If Cells(r, c).Interior.ColorIndex = xlNone Then
                    Cells(ResultRow, ResultCol) = Cells(r, c).Value
                    ResultRow = ResultRow + 1
                End If
            Next c
        End If
    Next r


End Sub

 

[Estatefinds]

Thank you again! the codes work great!!!!!!?

 

[Eric W]

You're welcome.