Hello bone343,
Try this macro. Add a new VBA module to your workbook and paste the code into it. You can then call the macro using the keys ALT+F8 or attach it to button.
Sub CopyRows()
Dim DstRng As Range
Dim LastRow As Long
Dim Row As Long
' Change the worksheet name to what you are using
Set DstRng = Worksheets("Sheet2").Range("B2")
LastRow = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
For Row = 2 To LastRow
If Cells(Row, "B") = "x" Then
Rows(Row).Copy DstRng
Set DstRng = DstRng.Offset(1, 0)
End If
Next Row
Application.ScreenUpdating = True
End Sub
Bookmarks