VB Script running copy from ne to another

 Set objExcel = CreateObject("Excel.Application") 

objExcel.Visible = True

Set objPasteData = objExcel.Workbooks.Open("C:\Scripts\dest.xlsx") 'Copy From File name give correctly

Set objRawData= objExcel.Workbooks.Open("C:\Scripts\\Source.xlsx")             'Paste To File

Set obj1 = objPasteData.WorkSheets("Sheet1") 'Worksheet to be cleared

Set obj2= objRawData.WorkSheets("Sheet1") 'Worksheet to be cleared

'obj1.Cells.Clear

countSheet = objRawData.Sheets.Count

For i = 1 to countSheet

    objRawData.Activate

    name = objRawData.Sheets(i).Name

    objRawData.WorkSheets(name).Select

    objRawData.Worksheets(name).Range("A2").Select

    objExcel.ActiveSheet.UsedRange.Select

    usedRowCount1 = objExcel.Selection.Rows.Count

msgbox"working"

    objExcel.Range("A2:A25" & usedRowCount1).Copy

    objPasteData.Activate

    objPasteData.WorkSheets("Sheet1").Select

    objExcel.ActiveSheet.UsedRange.Select

    usedRowCount2= objExcel.Selection.Rows.Count

    objPasteData.Worksheets("Sheet1").Range("A"& usedRowCount2 + 1 ).PasteSpecial Paste =xlValues

Next

obj2.Cells.Clear

objPasteData.Save

XML file 

<?xml version="1.0" encoding="UTF-16"?>

<Task version="1.2" xmlns="http://schemas.microsoft.com/windows/2004/02/mit/task">

  <RegistrationInfo>

    <Date>2022-01-24T20:29:15.9876246</Date>

    <Author>desktop name\DEL</Author>

    <URI>\abe</URI>

  </RegistrationInfo>

  <Triggers>

    <TimeTrigger>

      <StartBoundary>2022-01-24T20:30:15</StartBoundary>

      <Enabled>false</Enabled>

    </TimeTrigger>

  </Triggers>

  <Principals>

    <Principal id="Author">

      <UserId>S-1-5-21-1980640221-3734833071-1888101166-1001</UserId>

      <LogonType>InteractiveToken</LogonType>

      <RunLevel>LeastPrivilege</RunLevel>

    </Principal>

  </Principals>

  <Settings>

    <MultipleInstancesPolicy>IgnoreNew</MultipleInstancesPolicy>

    <DisallowStartIfOnBatteries>true</DisallowStartIfOnBatteries>

    <StopIfGoingOnBatteries>true</StopIfGoingOnBatteries>

    <AllowHardTerminate>true</AllowHardTerminate>

    <StartWhenAvailable>false</StartWhenAvailable>

    <RunOnlyIfNetworkAvailable>false</RunOnlyIfNetworkAvailable>

    <IdleSettings>

      <StopOnIdleEnd>true</StopOnIdleEnd>

      <RestartOnIdle>false</RestartOnIdle>

    </IdleSettings>

    <AllowStartOnDemand>true</AllowStartOnDemand>

    <Enabled>true</Enabled>

    <Hidden>false</Hidden>

    <RunOnlyIfIdle>false</RunOnlyIfIdle>

    <WakeToRun>false</WakeToRun>

    <ExecutionTimeLimit>PT72H</ExecutionTimeLimit>

    <Priority>7</Priority>

  </Settings>

  <Actions Context="Author">

    <Exec>

      <Command>"C:\Windows\System32\cscript.exe"</Command>

      <Arguments>"C:\Scripts\cs.vbs</Arguments>

    </Exec>

  </Actions>

</Task>