Range select

[Guest]

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

 

[Bob Phillips]

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)