Delete row if range of cells contain specific digits

[sakis_s]

Hi & happy new year!

I have some rows looking like this:

1	4	5	2	12
0	11	1	0	1
1	0	1	0	1
0	1	1	1	1
4	1	0	14	3

What i need is a way to run a macro where it finds the rows in range A:E that contain only combination of "0" and "1" in any sequence and then deleting these rows and shift the deleted rows up.
In my example above it should delete rows 3 and 4.

Has anyone any idea how to do this? I really appreciate your help.

 

[EFANYoutube]

Hi Sakis_s
This should do the trick

Sub DeleteBitRows()
    Dim Matrix, Cell As Range
    Set Matrix = Sheet1.Range("A1:A5")
    With Sheet1
        For Row = 1 To 6
            If .Cells(Row, 1).Value = "" Then Exit For
            For Currentcol = 1 To 5
                If .Cells(Row, Currentcol) <> 0 And _
                    .Cells(Row, Currentcol) <> 1 Then
                    Exit For
                ElseIf Currentcol = 5 Then
                    If .Cells(Row, Currentcol) = 0 Or _
                        .Cells(Row, Currentcol) = 1 Then
                            .Cells(Row, Currentcol).EntireRow.Delete xlUp
                            Row = Row - 1
                    End If
                End If
            Next Currentcol
        Next Row
    End With
End Sub
[code]

Excel Fun

 

[sakis_s]

Hi Sakis_s
This should do the trick

Sub DeleteBitRows()
    Dim Matrix, Cell As Range
    Set Matrix = Sheet1.Range("A1:A5")
    With Sheet1
        For Row = 1 To 6
            If .Cells(Row, 1).Value = "" Then Exit For
            For Currentcol = 1 To 5
                If .Cells(Row, Currentcol) <> 0 And _
                    .Cells(Row, Currentcol) <> 1 Then
                    Exit For
                ElseIf Currentcol = 5 Then
                    If .Cells(Row, Currentcol) = 0 Or _
                        .Cells(Row, Currentcol) = 1 Then
                            .Cells(Row, Currentcol).EntireRow.Delete xlUp
                            Row = Row - 1
                    End If
                End If
            Next Currentcol
        Next Row
    End With
End Sub
[code]

Excel Fun

This works perfectly! Thank you so much for your time, i really appreciate it!
I wish you the best!