Copy Row of Highlighted Cell

Originally Posted by sintek

I would think adding some code after your highlight code...i.e.

Dim nRow as Long
nRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1'Sheet2 the name of sheet you want to copy to
mycell.EntireRow.Copy Sheet2.Range("A" & nRow).PasteSpecial xlPasteValues

It says invalid qualifier even though I changed it to shtSheet2 which is my Sheet2.