Lastrow in Range

[Jeff]

Hello,

This is the VBA macro that I use:
Set rng = Range("h2:h167")
For Each cell In rng
If IsNumeric(cell.Value) Then
cell.Value = Application.WorksheetFunction. _
RoundDown(cell.Value, 2)
End If
Next
I'd like to set the rng to automatically start from H2 to the last row in
column H.
Thanks,

 

[Don Guillett]

try
Set rng = Range("h2:h" & cells(rows.count,"H").end(xlup).row)

 

[Jason Morin]

One way, assuming no gaps in the data:

Set rng = Range("H2:H" & Range("H2").End(xlDown).Row)

HTH
Jason
Atlanta, GA