Excel VBA: how to cut multiple rows and paste in a new file and save

[albertxu]

I have daily repetive tasks that need a VBA to help me out.
I have a file which is updated daily, the excel file contains like:
First Name|Last Name|Email| Password
John| Lee | Johnlee#hotmail.com | blabla
......
So here are my tasks, when a client ask for like 100 accounts, I cut 100 accounts starting ROW 2 and open a new excel file and paste those accounts (100 rows) from ROW 2 in that new file, and then I COPY the first row of the original file and paste that in the first row of the new file.
And then save the new file into the same folder.
And then save the original file.
I am thinking of putting a form in the file, one button and two text controls. One text control for inputting the number of rows which need to be cut and pasted each time, other text control for inputting username of the client, which will be used in the file name of the new file. I need the new file save in the name of "Number_username.xls".
I am very new to VBA and need your help. Thank you.

 

[ParamRay]

.
.


Use this as a starting point:

Sub MoveRows()

  Dim varRowsToCut    As Variant
  Dim wbkDestination  As Workbook
  Dim strFileName     As String
  
GetRows:
  varRowsToCut = Application.InputBox( _
    Prompt:="Enter number of rows to cut:", Type:=1)
  
  If varRowsToCut = False Then
    Exit Sub
  ElseIf varRowsToCut <> Int(varRowsToCut) Or varRowsToCut < 1 Then
    MsgBox "Number is not valid.", vbExclamation
    GoTo GetRows
  End If
  
  Set wbkDestination = Workbooks.Add
  strFileName = ThisWorkbook.Path & "\" _
      & Format$(Now, "yyyymmddhhmmss") & ".xlsx"
  
  With ThisWorkbook.Worksheets(1)
    .Rows(1).Copy wbkDestination.Sheets(1).Range("A1")
    .Rows("2:" & 1 + varRowsToCut).Copy
  End With
  
  With wbkDestination
    .Sheets(1).Rows(2).Insert
    .SaveAs strFileName
    .Close
  End With
  
  ThisWorkbook.Worksheets(1).Rows("2:" & 1 + varRowsToCut).Delete
  ThisWorkbook.Save
  MsgBox "New file saved:" & vbCrLf & strFileName, vbInformation

End Sub