Enter a cell value from a VBA macro

L

lo032398

I have a macro which works out the last row in a column of data. I wan
to put the row number in a Cell. How can I do this ?

Thank
 
H

Hans

Hi

Following macro puts the last row number of the Range
starting in A1 in cell B1.

regards


Sub Macro11()

Dim lLastRow As Long
Dim rgLast As Range

Set rgLast = Range("A1").SpecialCells(xlCellTypeLastCell)
lLastRow = rgLast.Row

Range("A1").Value = lLastRow

End Sub
 
Top