как получить код для копирования данных с листа2 на лист1

Question

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

получил код для отображения адреса значения, его нужно скопировать в Sheet1

Sub check_0_2()

    Dim wb     As Workbook
    Set wb = ThisWorkbook
    Dim ws     As Worksheet
    Set ws = wb.Sheets("Sheet2")
    Dim ws2 As Worksheet
    Set ws2 = wb.Sheets("Sheet1")
    Dim rng    As Range
    Set rng = ws.Range("A1").CurrentRegion
    Dim cell   As Range
    Dim lastrow As Long
    For Each cell In rng
        If cell.Value = 0 Then
        lastrow = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
            ws2.Range("A" & lastrow).Value = cell.Value
            Debug.Print "found in " & cell.Address
        End If
        lastrow = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    Next cell
End Sub

показывает только 0 в ячейке A1, должно быть больше