Copy Row of Highlighted Cell

Maybe:

Sub asilocyra()
Dim mycell As Range


'For each cell in sheet2 that is not the same in Sheet1, color it yellow
For Each mycell In ActiveWorkbook.Worksheets(shtSheet2).UsedRange
If Not mycell.Value = ActiveWorkbook.Worksheets(shtSheet1).Cells(mycell.row, mycell.Column).Value Then

mycell.Interior.color = vbYellow
Rows(mycell.row).Copy Sheets(shtSheet1).Cells(mycell.row, 1)

End If
Next

'For each cell in sheet2 that is not the same in Sheet1, color it yellow
For Each mycell In ActiveWorkbook.Worksheets(shtSheet1).UsedRange
If Not mycell.Value = ActiveWorkbook.Worksheets(shtSheet2).Cells(mycell.row, mycell.Column).Value Then

mycell.Interior.color = vbYellow
Rows(mycell.row).Copy Sheets(shtSheet2).Cells(mycell.row, 1)
End If
Next

ActiveWorkbook.Sheets(shtSheet2).Select
End Sub

Working on it. just wondering how to paste that copy code

Originally Posted by JOHN H. DAVIS

Maybe:

Sub asilocyra()
Dim mycell As Range


'For each cell in sheet2 that is not the same in Sheet1, color it yellow
For Each mycell In ActiveWorkbook.Worksheets(shtSheet2).UsedRange
If Not mycell.Value = ActiveWorkbook.Worksheets(shtSheet1).Cells(mycell.row, mycell.Column).Value Then

mycell.Interior.color = vbYellow
Rows(mycell.row).Copy Sheets(shtSheet1).Cells(mycell.row, 1)

End If
Next

'For each cell in sheet2 that is not the same in Sheet1, color it yellow
For Each mycell In ActiveWorkbook.Worksheets(shtSheet1).UsedRange
If Not mycell.Value = ActiveWorkbook.Worksheets(shtSheet2).Cells(mycell.row, mycell.Column).Value Then

mycell.Interior.color = vbYellow
Rows(mycell.row).Copy Sheets(shtSheet2).Cells(mycell.row, 1)
End If
Next

ActiveWorkbook.Sheets(shtSheet2).Select
End Sub

Thank you for the suggestion, but for some reason it doesn't work.