Offset using 'last cell'


Posted by Barry Ward on August 14, 2001 2:50 AM

I need to copy and paste data underneath the last used cell in a column, can i use an offset command? The code thus far is here:

' Selects data to be unbinned
'Calculates last used cell in column A

Sheets("results").Select
Range("d2").Select
ActiveCell.Formula = "=address(match(1e+30,a:a),column(a2)) "
Range("A3:" & ActiveCell.Text).Select
Selection.Copy

'selects cell below last used cell to paste

Range("d2").Select
ActiveCell.Formula = "=address(match(1e+30,a:a),column(a2)) "
Range(ActiveCell.Text).Select
Here is my problem Range("Offset.ActiveCell, 1, 0, 1, 1").Select
ActiveCell.paste



Posted by Barry ward on August 14, 2001 3:13 AM

Solution in Faster's reply to Mitch below