Record certain cell value every cell change on a range of cells

[OrangeGhost]

I have a cell range ie. C4:CX33, if i put an "x" on a cell within range, a certain seat no calculation will be copied to a column ie. DD1 . If 5 cells selected , 5 values also will be copied or inputted automatically. if cell DD1 has value on it it will put the current value to the next blank cell DD2.

if C4 = x then DD1 = seat no ie 2901.

if C4= x, AA12 = x, BB20 = x then

DD1 = 2901
DD2 = 2125
DD3 = 1152


Seat Calculation =IF(AND(CY37>=3,CY37<103,CY36>=1,CY36<31),(CY37-2)+CY36*100-100,"")

CY37 Calculation (Column) =Cells(37, 103) = ActiveCell.Column
CY36 Calculation (Row) =Range("CY36").Value = Range("B" & Target.Row).Value




Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("C4:CX33")) Is Nothing Then Call MyMacro

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Range("CY36").Value = Range("B" & Target.Row).Value
Cells(37, 103) = ActiveCell.Column

End Sub


Sub My Macro
<--- This here i dont know what to do.
End Sub


.http://www.mediafire.com/?jnx818ba67xx6as <-- file here
.http://www mediafire com /?jnx818ba67xx6as
please help