As Tom suggested, you haven't told us enough

--
Don Guillett
SalesAid Software

"Bernice" wrote in message
...
This worked well for one line but if run repeatedly,
overwrites the previous line. Do you have any
recommendations?

Here is what I have
Dim X As String
'moving a range from one worksheet to another
X = Worksheets("Matured").Range("a656").End(xlUp).Row + 1
Worksheets("Current").Range("B6:O6").Cut _
Worksheets("Matured").Range("B" & X)

Bernice
-----Original Message-----
Without going through each line of the 123 macro,

x=worksheets("destinationsheet").range("a65536"). end
(xlup).row+1
worksheets("sourcesheet").range("a5:b16").cut _
worksheets("destinationsheet").range("a" & x)

should move it for you.

--
Don Guillett
SalesAid Software

"Bernice" wrote in
message
...
I have a Lotus 123 macro that I'm trying to convert to
Excel. I have a need to copy or move a range of data
from
one worksheet to another. If the data is copied, the
original data then needs to be deleted from the source
worksheet. The worksheets contain different number of
rows.

Here is the original Lotus 123 macro
/RNCTOMOVE~{R 12}~ NAME RANGE TO MOVE
{GOTO}B:B6~ FIND EMPTY
{\B} PLACE TO MOVE TO
/CTOMOVE~~ MOVE DATA
{GOTO}TOMOVE~{D} GO BACK TO ROW COPIED FROM

/RETOMOVE~ ERASE OLD DATA
/C{END}{D}{R 12}~{U}~{U} MOVE DATA UP
{END}{D}/RE{R 12}~ DELETE EXTRA LAST LINE
{GOTO}TOMOVE~
/RNDTOMOVE~ DELETE RAMED RANGE
{WINDOWSON} GOTO SORT

Sample of the data
A B C D E F G h i
current date
1 date desc f b1 yield due date 1
2 date desc f b2 yield due date 2
4 date desc f b1 yield due date 4
3 date desc f b2 yield due date 3

If the current date is < or = to the due date, then
these
records need to be selected from the current worksheet
and
moved to the other worksheet. If this cann't be done,
the
individual rows can be moved one at a time. Once the
data
is moved, it is then resorted based on the autonumbering
of col A.

The results of the moving 2 rows from the source to the
destination worksheets

Source worksheet (col A and I are resequenced)
A B C D E F G h i
current date
1 date desc f b1 yield due date 1
2 date desc f b2 yield due date 2

Any help that can be provided would be greatly
appreciated.

Thanks,
Bernice




.