Borrar rango en otra hoja sin desplazarme a ella

Inserta este macro en un modulo:
Sub borrar()
Dim BorraRango As String
Dim i As Long
Dim fila As Integer
'Recorro verticalmente la hoja en busca de la primera fila vacía
i = 2
Do While Sheets("COMPRAS").Range("A" & i) <> Empty
i = (i + 1)
DoEvents
Loop
fila = (i - 1)
i = 1
'Ahora recorro las celdas horizontalmente
Do While Sheets("COMPRAS").Cells(fila, i) <> Empty
i = (i + 1)
DoEvents
Loop
BorraRango = Sheets("COMPRAS").Cells(fila, i).Address
Sheets("COMPRAS").Range("A2" & ":" & BorraRango).ClearContents
End Sub
Es una adaptación del tuyo, solo correrá para la hoja con nombre COMPRAS si le cambias el nombre a la hoja debes modificar la misma en este macro.
Como ves en los bucles hacemos referencia a la hoja utilizando el objeto sheets y sus rangos. Así no importa en donde estamos las acciones de este macro sera siempre sobre la misma hoja, ahora si no existen datos en A2 el macro no corre, si necesitas que el macro parta evaluando desde A3 o A4 sencillamente modifica la asignación de la variable i que esta entes del primer while.
Si te sirve CIERRA la pregunta

Excelente! El código funciona muy bien. Veré si puedo modificarlo un poco para reducir el número de variables pero de todos modos está perfecto y me sacó de una inquietud enorme para prescindir de los métodos Select.
Ahora sólo quisiera saber algo para aclarar dudas y aprovechar la pregunta antes de evaluarla. ¿Qué hace exactamente la línea DoEvents? Nunca la he usado. Gracias!