Метод Диапазон Отказа Объекта

Question

Я бы хотел перебрать значение столбца таблицы, чтобы найти значение. Если значение найдено, я хотел бы вставить копию строки, связанной с найденным значением.

Первый цикл создает пустую строку и редактирует значение столбца. Второй цикл должен вставлять данные непосредственно над каждой новой созданной пустой строкой в ​​пустую строку под ней.

Строка, выдающая ошибку: ws.Range("ws.Cells(Y, 1): ws.Cells(Y, 8)").Value

Dim ws As Worksheet
Set ws = Sheet1
Dim x As Variant
Dim Y As Long

Y = 0

  For Each x In ws.[Oper]
    Y = Y + 1
    If InStr(1, x, "1&2-165-200") Or InStr(1, x, "1&2-230-7P") Then
      Cells(Y, 3).Offset(1).EntireRow.Insert
      ws.Cells(Y, 3) = "F7015F-1"
    End If
  Next

Y = 0
  For Each x In ws.[Pline]
    Y = Y + 1
    If InStr(1, x, "F7015F-1") Then
        ws.Range("ws.Cells((Y + 1), 1): ws.Cells((Y + 1), 8)").Value = _
        ws.Range("ws.Cells(Y, 1): ws.Cells(Y, 8)").Value
    End If
  Next

End Sub