Очистка содержимого переменной строки

Question

Итак, я новичок в этом языке и пытаюсь обдумать его.Этот кусок кода для работы, и этому разделу очень помог удивительный человек на этом сайте.

Эта часть должна скопировать строку информации в другую электронную таблицу, когда поле в столбце I станет 7. И благодаря этому человеку он работает довольно отлично.

Следующий вопрос, на мой взгляд, заключается в том, как удалить исходную строку в первой электронной таблице.

Я не могу использовать диапазон, такой как «A9: M9», так как строка не всегда будет в этом фиксированном месте.

Я пытался использовать: If Source.Column = 9 And Source.Value = "7 - engaged" Then<br> Range("A:M").Select Selection.ClearContents

Но это уничтожило весь лист.Есть ли способ просто удалить одну скопированную строку?

If Source.Column <> 9 Then Exit Sub If Source.Value <> "7 - engaged" Then Exit Sub

 If MsgBox("Client status selected as engaged. Confirm to post to tank.", 
 vbOKCancel) = vbOK Then
    With ThisWorkbook.Worksheets("Tank")
        Dim rowToPasteTo As Long
        rowToPasteTo = .Cells(.Rows.Count, "B").End(xlUp).Row + 1

        .Range("A" & rowToPasteTo & ":" & "D" & rowToPasteTo).Value = 
Sh.Range("A" & Source.Row & ":" & "M" & Source.Row).Value
        .Range("G" & rowToPasteTo & ":" & "H" & rowToPasteTo).Value = 
Sh.Range("E" & Source.Row & ":" & "F" & Source.Row).Value
        .Range("S" & rowToPasteTo & ":" & "U" & rowToPasteTo).Value = 
Sh.Range("K" & Source.Row & ":" & "M" & Source.Row).Value

    End With

 End If

 If Source.Column = 9 And Source.Value = "7 - engaged" Then`

Answer 1

Не уверен, хотите ли вы удалить всю строку или очистить содержимое ячеек:

If Source.Column = 9 And Source.Value = "7 - engaged" Then
    ' Option 1 - deletes the entire row
    Source.EntireRow.Delete       

    ' Option 2 - clears the contents  
    Source.EntireRow.ClearContents
End Sub