I am trying to copy information in the first empty cell of other sheet called
Data. I've tried the macro as follow copied from Ron Debruin but I get a
compiling error"Sub or Function not defined". I'm new on this, can somebody
help me, thanks, Excel version 2003

Dim sourceRange As Range
Dim destrange As Range
Dim Lr As Long
Lr = LastRow(Sheets("Data")) + 1
Set sourceRange = Sheets("Control").Cells( _
ActiveCell.Row, 1).Range("A6:l26")
Set destrange = Sheets("Data").Range("A" & Lr)
sourceRange.Copy destrange
End Sub
-
Eduardo from TO

On Sat, 16 Dec 2006 07:52:00 -0800, Eduardo wrote:

> I am trying to copy information in the first empty cell of other sheet called
> Data. I've tried the macro as follow copied from Ron Debruin but I get a
> compiling error"Sub or Function not defined". I'm new on this, can somebody
> help me, thanks, Excel version 2003
>
> Dim sourceRange As Range
> Dim destrange As Range
> Dim Lr As Long
> Lr = LastRow(Sheets("Data")) + 1
> Set sourceRange = Sheets("Control").Cells( _
> ActiveCell.Row, 1).Range("A6:l26")
> Set destrange = Sheets("Data").Range("A" & Lr)
> sourceRange.Copy destrange
> End Sub
> -
> Eduardo from TO

You have posted this message to the wrong newsgroup.
The access in this groups name refers to Microsoft Access, a database
program.
Please repost to the correct newsgroup for the Excel program you are
using. I would suggest you include your Windows and Office version
number in the message.
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail