Macro to identify cells with info, decode the same and create new table.

Hello,

Here's what's up: I got a plan view of a bridge. I'm trying to write down the different problems I've inspected on it in a cell that has an x and y relevant to the bridge's legend.

Say I have:
y=(columns)= 1 to 12
x=(rows)= 1 to 10
then a cell inside of it would have the info based on #1 (#2) which decodes into #1=type of deficiency (Say 1=Weld Crack, 2=Existing Weld Crack) and #2 = number of the same type of deficiencies.

I would like to have a macro that goes through each one of the columns/rows in this map-matrix, and if a cell has an info, reads it and paste the equivalent info on a side table... so, say a cell has 1 (2)... it writes on the table next to it, col(1)=panel "P"X,Y (equivalent to the matrix), col(2)=No. of the same deficiencies or #2 above; col(3) Deficiency - macro reads 1 in table and writes: "Weld Crack"

Is it possible? Or would you actually suggest a better system to automatize this process?
Thanks!
Ana

list.PNG

Here's what I've come up so far... but its still not working:



i = 1
j = 1
For i = 1 To 12
For j = 1 To 12
Cells(j, i).Select
If Cells(j, i).Value <> "" Then
cx = i
cy = j
Range("Q2").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = cx
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = cy
ActiveCell.Offset(0, 1).Select
ActiveCell.Formula = "=Indirect(cells(j,i))"
End If
Next
Next