Assuming you're actually using Application.Paste, immediately after the paste
operation, check Selection.Address, which will give the address in the form
$A$1:$A:$2. You can then retrieve just the bottom row using InStrRev:
ActiveSheet.Paste
M = Selection.Address
Result = Mid(M, InStrRev(M, "$") + 1)
Result should now contain just the row number of the bottom row.
Alternately, if you just want the bottom row of the entire spreadsheet, use
Cells.SpecialCells(xlCellTypeLastCell).Row.
If you're pasting in the data using any other manner, well, it depends on how
you're doing it.
--
Conversation is not only the vehicle of thought,
it is a tremendous and efficient instrument in thinking.