How to delete rows range from the excel sheet

''Call the below function where were required, passing the parameter values:

Function ExcelDeleteRowsRange (sXlPath, sDestPath, sStartRow, sEndRow)
‘Create Excel object
Set oExcel = CreateObject(“Excel.Application”)

‘Sets the application to raise no xl alerts
‘This case will allow a file overwrite w/o raising a ‘yes/no’ dialog
oExcel.DisplayAlerts = False

‘Open Book in Excel
Set oBook = oExcel.Workbooks.Open(sXlPath)
‘Set Activesheet
Set oSheet = oExcel.Activesheet

‘Delete row range
oSheet.Rows(sStartRow +”:”+ sEndRow).Delete

‘Save new book to Excel file
oBook.SaveAs (sDestPath)

‘Close the xls file
oExcel.Workbooks.Close()
End Function