I need to be able to import data from one worksheet to another. I am ok
with the macro to select and copy the new data from the source sheet, but I
need to be able to identify the last "occupied" row in the target sheet, so
as not to overwrite. Is there a simple way to do this? any help greatly
appreciated.

hi,
not sure what you mean by "occupied" but if you mean select the last row of
data in a range then...

Range("A65000").end(xlup).offset(1,0).select

this would set you at the next empty cell, column A, ready to paste.

regards
FSt1

"mepetey" wrote:

I need to be able to import data from one worksheet to another. I am ok
with the macro to select and copy the new data from the source sheet, but I
need to be able to identify the last "occupied" row in the target sheet, so
as not to overwrite. Is there a simple way to do this? any help greatly
appreciated.

Hi mepetey.
Try:

R = ActiveSheet.UsedRange.Rows.Count 'last row
C = ActiveSheet.UsedRange.Columns.Count 'last column

Regards
Eliano



"mepetey" wrote:

I need to be able to import data from one worksheet to another. I am ok
with the macro to select and copy the new data from the source sheet, but I
need to be able to identify the last "occupied" row in the target sheet, so
as not to overwrite. Is there a simple way to do this? any help greatly
appreciated.

On Oct 24, 6:31 am, eliano wrote:
Hi mepetey.
Try:

R = ActiveSheet.UsedRange.Rows.Count 'last row
C = ActiveSheet.UsedRange.Columns.Count 'last column

Regards
Eliano



"mepetey" wrote:
I need to be able to import data from one worksheet to another. I am ok
with the macro to select and copy the new data from the source sheet, but I
need to be able to identify the last "occupied" row in the target sheet, so
as not to overwrite. Is there a simple way to do this? any help greatly
appreciated.- Hide quoted text -

- Show quoted text -

Hi,

Try this. Change the cell reference in Range("A1") to refer to your
desired location.
Range("A1").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = "New"

Regards
TrevoseF

Perfect.!

Thanks TrevoseF



wrote in message
oups.com...
On Oct 24, 6:31 am, eliano wrote:
Hi mepetey.
Try:

R = ActiveSheet.UsedRange.Rows.Count 'last row
C = ActiveSheet.UsedRange.Columns.Count 'last column

Regards
Eliano



"mepetey" wrote:
I need to be able to import data from one worksheet to another. I am
ok
with the macro to select and copy the new data from the source sheet,
but I
need to be able to identify the last "occupied" row in the target
sheet, so
as not to overwrite. Is there a simple way to do this? any help
greatly
appreciated.- Hide quoted text -

- Show quoted text -

Hi,

Try this. Change the cell reference in Range("A1") to refer to your
desired location.
Range("A1").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = "New"

Regards
TrevoseF