Delete rows without data except in column A

[dstepan]

I have a report that lists data in column A and then "X"s in columns B-F.

I want to delete the rows which do not have an "X".

What is the easiest way to do this? Macro? VBA? I'm a real beginner with VBA.

For example:

This is what I have now...
A B C D E F
1 Tom X
2 Sally
3 Mike X X
4 Jim X

This is what I want....
1 Tom X
2 Mike X X
3. Jim X

 

[Momentman]

Maybe a macro like this

1. Press Alt+F11 to open the Visual Basic Editor
2. Select Insert from the toolbar and then Module
3. Paste this code in there

Sub Deletedata()
    Dim I As Integer
    Dim wf As WorksheetFunction
    Set wf = Application.WorksheetFunction
    For I = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        If wf.CountIf(Range("B" & I & ":" & "F" & I), "x") = 0 Then
            Rows(I).EntireRow.Delete
        End If
    Next I
End Sub

Please create a copy of your data/sheet before running the code

 

[dstepan]

The code works but it deleted my title row. I guess I should've shown that in my example.
How can I change the code to ignore row 1?

 

[Momentman]

change

For I = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1

to

 For I = Range("E" & Rows.Count).End(xlUp).Row To 2 Step -1