Sub AA()
Dim rng As Range
Set rng = Cells(1012, "C").End(xlUp).Offset(-2, 0).Resize(3, 4)
rng.Cut
Range("C1:F1").Insert Shift:=xlShiftDown

End Sub


--
Regards,
Tom Ogilvy



"sam s via OfficeKB.com" wrote in message
...
Thanks for helping - Excel 2002
Overview: Need to find the last 3 rows of a range and move them to the
top
of the range
1: I need to look for the Last cell of value (Player's name) in a row in
Col
C starting at C1012
2: Select the values in that row C D E F as well as the 2 rows above (3 in
all)
3. Block select and move them to the top of new range (Players in same
order)
4: Move the rest of the original range below those 3 rows

Your help is appreciated and I promoise to help others