Codigo que devuelva el numero de celda en

[Crashman]

Amigos espero puedan ayudarme
1. necesito la coordenada de la celda en eje Y para asignarsela a una variable
para que? ok tengo una hoja de escel que contiene datos cada fila contiene informacion que necesito pero para dar con esa fila yo estipule que empezara en la fila 4 columna 1 y que cuando encontrara compra que pusiera una x y la pintara de amarillo, si es diferente una E, y tambien pintada, ahora necesito que la macro empieze de la ultima fila con cualquier letra, para asignar nuevamente asi abajo las letras, pero no se como asignar a una variable el dato de la coordenada Y porque utilizo el codigo de "Cells" y no de "Range"
aca les dejo el codigo que tengo

Código:

Workbooks(origen).Worksheets(1).Cells(celda, 2).Value <> ""
    dato = Cells(celda, 2).Value (aqui es donde necesito saber el # de celda)
    Select Case dato
        Case "compra"
            Cells(celda, 2).Select
            With Selection.Interior
                .ColorIndex = 6
                .Pattern = xlSolid
            End With
            Cells(celda, 1).Value = "x"
        Case "ANULADA"
            Cells(celda, 2).Select
            With Selection.Interior
                .ColorIndex = 6
                .Pattern = xlSolid
            End With
            Cells(celda, 1).Value = "E"
        Case "NO RECIBIDA"
            Cells(celda, 2).Select
            With Selection.Interior
                .ColorIndex = 6
                .Pattern = xlSolid
            End With
            Cells(celda, 1).Value = "E"
        End Select
        celda = celda + 1
    Wend