try this,

Random_Number = Application.WorksheetFunction.RandBetween(1, rowsend)