Você não pode usar Rows()
com uma referência de coluna. Apenas mude sua primeira parte para as linhas apenas.
If IsEmpty(Range("A827").Value) = True Then
Rows("825:925").EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
Else
Rows("827:925").EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
End If
Ou você poderia ter feito Range("A825:A925").EntireRow.Delete ...