Excel vba специфическая вставка копии строки по ссылке на ячейку

Question

Мне нужно выбрать определенную строку из такого количества строк и скопировать вставку на другой лист, но я не хочу указывать значение ячейки, если оно принимает значение из определенной ячейки
мой код

Sub Macro3()
    Dim rngG As Range
    Dim cell As Range
    Sheets("Urban-Ward_vise").Select
    Set rngG = Range("G1", Range("G65536").End(xlUp))
    For Each cell In rngG
        If cell.Value = "BAVLA" Then
            cell.EntireRow.Copy
            Sheets("Sheet1").Select
            ActiveCell.Select
            ActiveCell.Offset(1, 0).Range("A1").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
        End If
    Next cell
    Selection.End(xlUp).Select

End Sub

Я хочу выбрать строки из Urban-Ward_vise и вставить в sheet1

в

If cell.Value = "BAVLA" Then

Я не хочу указывать значение "BAVLA", но хочу прочитать значение из sheet1клетка как с5 так что помогите пожалуйста

Answer 1

Ты имеешь в виду что-то подобное?

Это стоило бы прочитать как избежать Выберите .

Sub Macro3()

Dim rngG As Range
Dim cell As Range

With Sheets("Urban-Ward_vise")
    Set rngG = .Range("G1", .Range("G" & Rows.Count).End(xlUp))
End With

For Each cell In rngG
    If cell.Value = Sheets("Sheet1").Range("C5").Value Then 'specify sheet name and cell here
        cell.EntireRow.Copy
        Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
    End If
Next cell

End Sub