VBA code that needs restructuring

[Estatefinds]

I have a code that when run it will search for data from one column and searches for its match in numerous other columns; specifically every 8 columns where data is found and it returns the the row on which that matching data is found.
What i need is for someone to help me change the code so it will search in only one column and return the row it is found on.

(code)
sub my search()
For each gcell in Range("g1", range(G65536").End(xlup))
If isempty(cell(gcell.row, 8)) Then
For each c in Range ("Z1:AOOO324597")
I=Application.match(gcell.value, Range(c, Cells(324597, c.column)), 0)
if Not iserror(I) Then
Cells(gcell.row,8)=I
exit for
end if
next
if is empty(cells(gcell.row, 8)) then
cells(gcell.row, 8) ="$#N/A"
end if
end if
next
end sub

 

[Michael M]

Which column specifically ??

 

[Estatefinds]

column Z

 

[Estatefinds]

so the data wont be spread across multiple columns, I had placed the data in only one column. this was done for easier reading. the range of data is the same except the data that will be in column Z only instead of from column Z to AOO.

 

[Estatefinds]

Sub mySearch()
For Each gCell In Range("G1", Range("G65536").End(xlUp))
If IsEmpty(Cells(gCell.Row, 8)) Then
For Each c In Range("Z1:AOO324597")
I = Application.Match(gCell.Value, Range(c, Cells(324597, c.Column)), 0)
If Not IsError(I) Then
Cells(gCell.Row, 8) = I
Exit For
End If
Next
If IsEmpty(Cells(gCell.Row, 8)) Then
Cells(gCell.Row, 8) = "#N/A"
End If
End If
Next
End Sub

 

[Estatefinds]

how do i place code

[/COLOR][COLOR=#ff0000]Place Your Code Here[/COLOR][COLOR=#574123]

 

[Estatefinds]

i am new to this website
so not sure how to place the code

 

[Estatefinds]

if your able can you please help restructure this code? Thank you

 

[Michael M]

So, your trying to match a cell in column "G" with COL "Z"....is that correct ??

 

[Estatefinds]

Yes