Почему мои данные UserForm входят в новый файл? (т.е. я открываю Filename, и данные компилируются в Filename1)

Question

Я пытаюсь сохранить все данные в одном файле, так как он находится в общей сети на работе.По какой-то причине, когда данные вводятся через пользовательскую форму и компилируются в лист, они не все компилируются в мой исходный лист, а в новый, который находится в .xlsx

Где-то яМожно добавить, что он остается в том же файле?

Код, который я подключил к кнопке команды, выглядит следующим образом:

    Private Sub CommandButton1_Click()
Dim rw As Integer
Dim ws As Worksheet
Dim emptyRow As Long

'Make Sheet2 active
Sheet2.Activate

'Determine emptyRow
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

'Transfer information
Cells(emptyRow, 1).Value = Me.TextBox1.Value
Cells(emptyRow, 2).Value = Me.TextBox2.Value
Cells(emptyRow, 3).Value = Me.TextBox3.Value
Cells(emptyRow, 4).Value = Me.TextBox4.Value
Cells(emptyRow, 5).Value = Me.TextBox5.Value
Cells(emptyRow, 6).Value = Me.TextBox6.Value

End Sub

Answer 1

Примерно так:

Private Sub CommandButton1_Click()

    Dim rw As Range 

    Set rw = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1,0).EntireRow

    With rw
        .Cells(1).Value = Me.TextBox1.Value
        .Cells(2).Value = Me.TextBox2.Value
        .Cells(3).Value = Me.TextBox3.Value
        .Cells(4).Value = Me.TextBox4.Value
        .Cells(5).Value = Me.TextBox5.Value
        .Cells(6).Value = Me.TextBox6.Value
    End With

End Sub