Private Sub CommandButton1_Click()
Dim t, ncol%, i&, n&, j%
With ThisWorkbook.Sheets("Bass")
t = .Range("A1", .UsedRange)
ncol = UBound(t, 2)
For i = 1 To UBound(t)
If Not IsError(t(i, 26)) Then
n = n + 1
For j = 1 To ncol
t(n, j) = t(i, j)
Next
End If
Next
If n Then .Range("A1", .UsedRange).Resize(n) = t
.Rows(n + 1 & ":" & .Rows.Count).Delete
End With
End Sub