VBA to copy and past certain data to another sheet is not working. Any ideas?

Private Sub CommandButton1_Click()
a = Worksheets("Record Book").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To a

If Worksheets("Record Book").Cells(i, 3).Value = "Sold" Then
Worksheets("Record Book").Rows i.Copy
Worksheets("Record Book 3").Activate
b = Worksheets("Record Book 3").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Record Book3").Cells(b + 1, 1).Select
ActiveSheet.Paste
Worksheets("Record Book").Activate

End If

Next

Application.CutCopyMode = False

ThisWorkbook.Worksheets("Record Book").Cells(1, 1).Select

End Sub

Thank you!

Thanks for coming back to us and letting us know Cody.
Good Luck