Вставить строки в следующую пустую строку

Question

Я пытаюсь вырезать строки со столбцом состояния, заполненным словом «Развернуто», и вставить их в новый рабочий лист с именем «развернуто».Мне нужно вставить строки в следующую пустую строку, чтобы никакие существующие строки на «развернутой» рабочей таблице не копировались.

Я начал свой код, переформатируя «развернутую» рабочую таблицу каждый раз, когда марко запускался, но былсказал, что мне нужно сохранить все данные и добавить к нему, теперь я застрял.Я нигде не могу найти в Интернете, как это сделать.

Это мой код, который мне нужно изменить, чтобы скопировать в следующую доступную пустую строку вместо строки 2. Пожалуйста, помогите!

Sub CutRows() 'cuts all rows with status deployed into the Deployed worksheet - working
    Dim cell As Range
    Dim lastRow As Long
    Dim i As Long
    Set Wksh1 = Worksheets("01 Feb 19")
    Set Wksh2 = Worksheets("Deployed")

    lastRow = Wksh1.Range("A" & Rows.Count).End(xlUp).Row 'finds the last row

    i = 2 ' copies onto wksh2 row 2

    For Each cell In Wksh1.Range("T1:T" & lastRow) 'looks in T column until the last row (loop)
        If cell.Value = "Deployed" Then 'searches for word deployed
            cell.EntireRow.Cut Wksh2.Cells(i, 1) 'cuts entire row into Deployed worksheet
            i = i + 1 'Added so that rows don't overwrite each other
        End If
    Next cell 'To close the cell loop (For loop)
End Sub

Answer 1

Просто замените i = 2 на i = Wksh2.Range("A" & Wksh2.Rows.Count).End(xlUp).Row + 1