Sub Кнопка3_Щелчок()
   Dim Row As Long
   Dim Range As Excel.Range
   Dim ThisWorkbook As Excel.Workbooks
   Dim Sheets As Excel.Sheets
   Dim ws As Worksheet
   Const limit As Integer = 0
   Set ws = Sheets("Лист1")
  
For Row = 4 To 30
            
               If Cells(Row, 12).Value = limit Then
             
                         Range(ws.Cells(Row, 12), ws.Cells(28, 12)).ClearContents
                           
                              Else: Value = Cells(Row, 5).Value
                               
               End If
               Next Row

End Sub