Abfrage ob Zelle Leer funkt nicht

Private Sub Komprimieren_Click()
Dim p As Integer
Dim j As Integer
Dim intstart5 As Integer
p = 8
j = 8
intstart5 = MsgBox("Wollen Sie die Komprimierung durchführen ? ", vbYesNo)
If intstart5 = vbYes Then
For j = 8 To 15
If IsEmpty(Cells(5, p)) Then
Rows(p).EntireRow.Hidden = True
p = p + 1
Else
End If
Next
End If
End Sub