Your code works fine for me. Let me however observe that you could do
with some simplification, weeding out the intermediate assignments.
See:

Sub copyOver()

Dim n As Long

n = Sheets("GRADE").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("GRADE").Range("B12:F" & n).Copy
Sheets(wsDestination).Range("B12")

End sub


--
davidm
------------------------------------------------------------------------
davidm's Profile: http://www.excelforum.com/member.php...o&userid=20645
View this thread: http://www.excelforum.com/showthread...hreadid=399357