macro/vba to divide data sheet into two sheet

Alright, here you go. Fingers crossed

Sub Twosheets()
Dim sws2, sws3, FileToOpen As String
Dim x, y, vCol, vCl
Dim src, trg, src2, trg2, a, Ub, lro, lrr, i, j As Long
Dim ws, wso, wsr, wsa, wsb As Worksheet
Dim OpenWB As Workbook
Dim EndDate, StartDate As Date

Application.ScreenUpdating = False
    Set ws = Sheet1
    On Error GoTo EH:
    FileToOpen = Application.GetOpenFilename(Title:="Select File to Open where sheets will be added", _
                 FileFilter:="Excel Files (*.xls*),*xls*")
    If FileToOpen = "False" Then Exit Sub
    Set OpenWB = Workbooks.Open(Filename:=FileToOpen, ReadOnly:=False)
    On Error GoTo -1
    'On Error Resume Next
    sws2 = InputBox("Please enter the name for the first worksheet?")
        For Each wsa In OpenWB.Worksheets
            If wsa.Name = sws2 Then
                sws2 = sws2 & 1
            Else
                sws2 = sws2
            End If
        Next wsa
    Sheets.Add(After:=Sheets(Sheets.Count)).Name = sws2
    Set wso = OpenWB.Sheets(sws2)
    sws3 = InputBox("Please enter the name for the 2nd worksheet?")
        For Each wsb In OpenWB.Worksheets
            If wsb.Name = sws3 Then
                sws3 = sws3 & 1
            Else
                sws3 = sws3
            End If
        Next wsb
    Sheets.Add(After:=Sheets(Sheets.Count)).Name = sws3
    Set wsr = OpenWB.Sheets(sws3)
    On Error GoTo -1
    x = Split(InputBox("type from_what_row_number_in_sheet1, to_what_row_number_in_sheet1. Example : 2,200 "), ",")
    src = x(0)
    trg = x(1)

    y = Split(InputBox("type from_what_row_number_in_sheet2, to_what_row_number_in_sheet2. Example : 200,500 "), ",")
    src2 = y(0)
    trg2 = y(1)

    vCol = InputBox("Please enter the column letters you want transferred, seperated by commas, no spaces." & vbNewLine & "Enter atleast a,b")
    vCl = Split(vCol, ",")
    Ub = UBound(vCl)

    StartDate = "30 Dec 2005"
    EndDate = "1 jan 2017"
    With wso
        ws.Range(vCl(0) & "1:" & vCl(Ub) & "1").Copy
        wso.Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
        ws.Range(vCl(0) & src & ":" & vCl(Ub) & trg).Copy
        wso.Range("A2").PasteSpecial xlPasteValuesAndNumberFormats
        .Activate
        lro = wso.Cells(Rows.Count, "A").End(xlUp).Row
        For i = lro To 2 Step -1
            If Application.WorksheetFunction.IsText(Cells(i, "B")) _
            Or Cells(i, "B") = 0 Then
                Cells(i, "B").EntireRow.Delete
            End If
        Next i
        Columns(vCl(0) & ":" & vCl(Ub)).EntireColumn.AutoFit
    End With
    With wsr
        ws.Range(vCl(0) & "1:" & vCl(Ub) & "1").Copy
        wsr.Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
        ws.Range(vCl(0) & src2 & ":" & vCl(Ub) & trg2).Copy
        wsr.Range("A2").PasteSpecial xlPasteValuesAndNumberFormats
        .Activate
        lrr = wsr.Cells(Rows.Count, "A").End(xlUp).Row
        For j = lrr To 2 Step -1
            If Application.WorksheetFunction.IsText(Cells(j, "B")) _
            Or Cells(j, "B") = 0 Then
                Cells(j, "B").EntireRow.Delete
            End If
        Next j
        Columns(vCl(0) & ":" & vCl(Ub)).EntireColumn.AutoFit
     End With
    
    With Application
    .CutCopyMode = False
    .ScreenUpdating = True
    End With
Exit Sub
EH:
    MsgBox "This is an error  " & Err.Description
    With Application
    .CutCopyMode = False
    .ScreenUpdating = True
    End With
    On Error GoTo 0
End Sub

Most of the things are done just few fine tuning needed
1)when I was running the code it divided the wrong sheet many times and I was confused, then I noticed the code is written for "sheet1" and order of my sheet was changed. can u please change that to sheet name(instead of sheet number) "studump"?The sheet number may change but I can keep the sheet name constant. I tried to do it myself but ended up with error.
2)If in destination sheet, sheet with same name exist instead of quitting it should create sheets with name assigned through input and suffixed by random numbers
3)most of the unnecessary data is now getting deleted from date columns .Just need to delete decimal numbers.Please include decimal number in unnecessary data list for date column and delete record(row containing numbers with decimal point in date filed.
4)To delete the unnecessary columns from both the newly created sheet I run the below given macro in both the sheets

Sub Delete_columns_of_junior_sheet_Click()
     Sheets("junior").Range("B:B,D:H,J:N,P:Z,AC:XFD").EntireColumn.Delete
End Sub

can you integrate this code into the code written by you so that after importing the data this code will run in both the newly created sheet
Also in future code please change date column from "B" to "O"
Thanks again