Need Help with Copy row to other worksheet based on criteria

As the title states I need help with a copy and past VBA for a button I am using column a on sheet 2 "Data" and what I need is when I input an "X" into the column which there are multiple rows that will be used, I need when I push the button it copies the whole row to the bottom row of the "TruckHistory" sheet. But I want only the values copied over. I have tried so many too many to count variations of copy and paste code that I am at my wits end. The attached sheet is just a working model. There are a lot of blank cells in the data sheet and truck history, as I am continuing to update it everyday. Here is the code I have gathered so far.

Private Sub History_Click()
Dim i As Long, lrow As Long




Application.ScreenUpdating = False




With Worksheets("Data")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 2 To lrow
        If .Range("A" & i).Value = "X" Then .Rows(i).copy
        Worksheets("TruckHistory").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial = xlPasteValues
    Next i
End With




MsgBox "Done"




Application.ScreenUpdating = True




End Sub[CODE]

[/CODE]

Re: Need Help with Copy row to other worksheet based on criteria

Well it finally copies the values, unfortunately it copies the whole table to the next page instead of only the rows marked "X".

Re: Need Help with Copy row to other worksheet based on criteria

Wow so, so nice works perfect, thank you so much. I should have swallowed my pride a lot earlier.

Re: Need Help with Copy row to other worksheet based on criteria

Is there any way to add an advanced filter look up like this so I can type a truck number and it will filter [ATTACH=CONFIG]68960[/ATTACH]like this

Re: Need Help with Copy row to other worksheet based on criteria

will do thanks