Scan row for data, for every row with no data (from column b over) move data in column a to sheet 2

[ExcelGuy13]

So I have a sheet similar to the example below...the top few rows are populated with data specific to the report. Beneath that are user names in column A along with data in random columns adjacent to column A. I'm looking for VBA script that will essentially look at every row (in this example from row 7 down) and check to see if there is any information in the row (aside from column a). If there is anything in any column for that row, it will ignore it and move to the next row. For every instance that there is no data to the right of column A, it should copy the data in that row from Column A and move it to sheet 2. In this example everybody has data to the right of column A except Eric and Marilyn, so only Eric and Marilyn are moved to sheet 2. Can anybody assist with this request?

 

[My Aswer Is This]

Try this:

Sub Columns_Me()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Dim Lastrowa As Long
Dim LastColumn As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Lastrowa = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row + 1

    For i = 7 To Lastrow
        LastColumn = Cells(i, Columns.Count).End(xlToLeft).Column

            If LastColumn < 2 Then
                Rows(i).Copy Destination:=Sheets(2).Rows(Lastrowa)
                Lastrowa = Lastrowa + 1
            End If
    Next
Application.ScreenUpdating = True
End Sub

 

[ExcelGuy13]

Looks to be working perfectly. Thanks so much.

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

Looks to be working perfectly. Thanks so much.