Last Row - Select to end of sheet

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello!

I am trying to create a section of macro to find the first row of data from
the bottom of the sheet up, select one row down from the ActiveRow to the end
of the sheet, then Clear the content of the selected rows. The row location
of the data is always different.

I have tried the folowing, but it does not work. I would greatly appreciate
help!

Range("A65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Rows("1:65536").EntireRow.Select
Selection.Clear
 
Once you have selected a cell, you have defined the active row. This macro
will clear all the cells in all the rows from the row below the active row
thru row 65536. You must ,however, select the last row of data before
running the macro.


Sub clearit()
i = Selection.Row + 1
Range(Cells(i, 1), Cells(65536, 255)).Select
Selection.Clear
End Sub
 
Range(ActiveCell.Offset(1, 0), Range("A" &
Rows.Count).End(xlUp)).EntireRow.Clear


--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)
 
Hello Lost In Alabama,

Here is another version...

Dim EndCell As Range
Set EndCell = ActiveSheet.Cells(Rows.Count, "A").End(xlUp)
ActiveSheet.Range(ActiveCell, EndCell).ClearContents


Sincerely,
Leith Ross
 
Thanks Gary's Student. I will try this.



Gary''s Student said:
Once you have selected a cell, you have defined the active row. This macro
will clear all the cells in all the rows from the row below the active row
thru row 65536. You must ,however, select the last row of data before
running the macro.


Sub clearit()
i = Selection.Row + 1
Range(Cells(i, 1), Cells(65536, 255)).Select
Selection.Clear
End Sub
Click to expand...
 
firstrow = cells(rows.count,1).End(xlup)(2).row
Range(FirstRow & ":65536").ClearContents
 
Tom, I have not seen the use of the (2) like this before.

FirstRow = Cells(Rows.Count, 1).End(xlUp)(2).Row

How does this work? (1) is the last row, and (0) is next to last row??

Mike F
 
It's a form of offsetting, it will take the row after the last non-empty row
found. It is similar to

FirstRow = Cells(Rows.Count, 1).End(xlUp).Range("A2").Row

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)
 
You guys are so Awesome. Your knowledge is endless and it is such a Blessing
that you are willing to share it!

Thanks to you all!
 
Back
Top