Как сделать чтобы данные, которые я получаю в тестах, сделанных в Visual Basic, сохранялися в других листах Excel - VB

Private Sub WriteExcel()
 
    Dim i As Integer, j As Integer  
    Dim X As Integer, Y As Integer
    Dim objExcel As Object
    Set objExcel = CreateObject("Excel.Application")
    If objExcel Is Nothing Then Exit Sub
    objExcel.Visible = True
    objExcel.Workbooks.Add
    X = Flex1.Cols
    Y = Flex1.Rows
    For j = 0 To Y - 1
        For i = 0 To X - 1
            Flex1.Col = i
            Flex1.Row = j
            objExcel.ActiveCell(j + 1, i + 1) = Flex1.Text
        Next i
    Next j
 
    Set objExcel = Nothing
End Sub