Mejorar la velocidad de una macro

Tu programación tiene dos problemas usas un do while y demasiados select eso alentá las macros, para lo que quieres hay formas más eficientes de hacerlo, por ejemplo esta macro hace lo mismo que tu macro solo que se va directo al final de los registros que tengas y se salta dos lugares más abajo crea una área de 6 filas por 2 y en esa área añade los datos, cada que corras la macro hará lo mismo sin importar si añades o quitas filas

Sub analizar()
Set datos = ActiveSheet.UsedRange
With datos
    f = .Rows.Count
    Set campos = .Rows(f + 3).Resize(6, 2)
   With campos
    .Select
    .Cells(1, 1) = lblelab.Caption:   .Cells(1, 2) = cbxelb.Value
    .Cells(2, 1) = lblrev.Caption:    .Cells(2, 2) = cbxrev.Value
    .Cells(3, 1) = lblfch.Caption:    .Cells(3, 2) = DTPfch.Value
    .Cells(4, 1) = lblinf.Caption:     .Cells(4, 2) = txtinf.Value
    .Cells(5, 1) = lblusu.Caption:    .Cells(5, 2) = txtusu.Value
    .Cells(6, 1) = lbleqp.Caption:    .Cells(6, 2) = txteqp.Value
End With
End With
Set datos = Nothing: Set campos = Nothing
End Sub

Te agradezco mucho por la ayuda, este código es justo lo que necesitaba y tendré en cuenta lo que me dices de usar muchos Select y empezaré a ser más cuidadoso con eso, de nuevo muchas gracias.

James Bond Hola, acabo de notar algo y es que cada vez uso la macro me pone los datos cada vez más abajo, incluso si borro los anteriores los datos siguen y siguen bajando cada vez que hago uso de la macro

No entiendo, la macro hace lo que tu macro hace, tu macro se va a la ultima fila de datos deja dos filas en blanco después de ella e inserta los datos de tu formulario, la macro que te envíe hace exactamente lo mismo, cuenta las filas con información, se va a la ultima con datos, deja dos filas en blanco e inserta la información de tu formulario, las volví a probar y hacen exactamente lo mismo, seria mejor que subieras una pantalla de tu información para ver que puede estar pasando

Si veo la ejecución paso a paso ve que a f lo hace igual a 8952, pero los datos actualmente acaban en 8886, como lo puedo ajustar para que no se vaya tan lejos?

James Bond, ya vi el problema y es que uno de lo datos que envió a las celdas es una fecha, así que aunque lo borre en la celda queda guardado el formato de fecha y por eso el rango se baja cada vez más 

En lugar de borrar puedes eliminar las filas o filas con eso se va el formato de la fecha