Sub ki038()
    Workbooks.Add
    bbb1 = ActiveWorkbook.Name
'
    Workbooks.Add
    bbb2 = ActiveWorkbook.Name
  n = 0
  For i = 1 To 10
    ThisWorkbook.Activate
    Sheets("Sheet1").Select
    moz = Cells(i, 1)
    
    If i Mod 2 = 0 Then
      Windows(bbb2).Activate
    Else
      Windows(bbb1).Activate
      n = n + 1
    End If
      Cells(n, 1) = moz
  Next
End Sub