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