Dim App As New Excel.Application
Dim Book As Excel.Workbook = App.Workbooks.Add
Dim Sheet As Excel.Worksheet = CType(Book.Worksheets(1), Excel.Worksheet)
Dim rng As Excel.Range
App.Visible = True
 
 
Dim a As Integer=15
 
Sheet.Rows(a).Select
Sheet.Selection.Cut
Sheet.Rows("4:4").Select
Sheet.ActiveSheet.Paste