Macro - Final
 

I need a macro to find the final row and automatically place text in the
final row.

The number of rows will change as I bring in new data.

Please Help.


--
ciba1234
------------------------------------------------------------------------
ciba1234's Profile: http://www.excelforum.com/member.php...o&userid=27299
View this thread: http://www.excelforum.com/showthread...hreadid=467999

Macro - Final
 

Try this example that find the last used cell on the worksheet

Sub test()
Cells(LastRow(ActiveSheet) + 1, "A").Value = "Hi ciba1234"
End Sub

Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function



--
Regards Ron de Bruin
http://www.rondebruin.nl


"ciba1234" wrote in message
...

I need a macro to find the final row and automatically place text in the
final row.

The number of rows will change as I bring in new data.

Please Help.


--
ciba1234
------------------------------------------------------------------------
ciba1234's Profile: http://www.excelforum.com/member.php...o&userid=27299
View this thread: http://www.excelforum.com/showthread...hreadid=467999