SoloCodigo

holaa:
resulta que para el trabajo necesito hacer una macro con lo siguiente (de momento lo estoy haciendo sin macro y con un ejemplo parecido pero pequeño para ver si me funcionaría).
Resulta que de una tabla dinámica, sólo me interesa saber los valores de la cuarta columna. Si tienen un determinado valor dejo la fila como está y sino pues la borro, de momento (más adelante las filas que me cumplen la condición deberé guardarlas en otra hoja o en otro archivo excel).
El código que tengo es el siguiente y no sé por qué siempre me borra únicamente la primera fila:

Private Sub CommandButton1_Click()
    Dim fila As Long, columna As Long
    fila = 1
    columna = 1
    Do While Cells(fila, columna) <> ""
       Do While Cells(columna, fila) <> ""
          If ((columna = 4) And (Cells(columna, fila) <> "Bien") And (Cells(columna, fila) <> "Forzada")) Then
            Rows(fila).Delete
          End If
          columna = columna + 1
       Loop
       fila = fila + 1
       columna = 1
    Loop    
End Sub

Quiero que las filas cuya columna sea diferente de "Bien" ó "Forzada" de momento, se eliminen.

A ver si alguien me puede echar un cable...
Muchas gracias.
Javi