Dim cLastRow As Long
Dim rng As Range
cLastRow = Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Range("A3:F" & cLastRow)
rng.Delete Shift:=xlShiftUp
Range("A1").Select


--

HTH

RP
(remove nothere from the email address if mailing direct)


"GG" wrote in message
...

Please translate the following commands into working code.

Range A3 select
find the last row
go to F colum and select the aria A3 to Fi
then delete
and go to
Range (a1) select

Can anyone help me
GG