Esa forma de hacerlo es inefectiva ya que digamos la fila 1 no contiene "Y" ni la 2 tampoco, al eliminar la fila 1, la fila 2 se convierte en fila 1 y tu bucle saltará a la fila 2 (anteriormente fila 3), así que se saltaría una.
Lo más eficiente es meter los datos en un array:
Option Explicit
Sub Test()
Dim arr As Variant: arr = ThisWorkbook.Sheets("TUHOJA").UsedRange.Value
Dim i As Long, j As Long
For i = 1 To UBound(arr)
If arr(i, 1) <> "Y" Then 'eliminamos las filas en las que la columna A no tiene la letra Y
For j = 1 To UBound(arr, 2)
arr(i, j) = vbNullString
Next j
ElseIf arr(i - 1, 1) = vbNullString Then 'subimos datos si la fila anterior está vacía
For j = 1 To UBound(arr, 2)
arr(i - 1, j) = arr(i, j)
arr(i, j) = vbNullString
Next j
End If
Next i
ThisWorkbook.Sheets("TUHOJA").UsedRange.Value = arr
End Sub
Lo que tiene esto, es que si tu rango utilizado es mayor que el rango con datos, no parará hasta el final. Para evitar eso, pulsa ctrl+Fin y mira si en la fila de la celda a la que te salte tienes datos, si no los tienes, selecciona desde la primera fila sin datos hasta el final y las eliminas.