Option Explicit

Sub Button1_Click()
    Dim x As Long
    Sheet1.Select

    Application.ScreenUpdating = False
    For x = 2 To ThisWorkbook.Sheets.Count
        If Sheets(x).Name <> "Sheet1" Then
            Sheets(x).Select
            If Range("Y20").Value = "G" Then  'searches for term G
                Range("Y19:Z19").Value = Range("Y20:Z20").Value
                Range("Y20").EntireRow.Delete
            End If
        End If
    Next x
    Application.ScreenUpdating = True
End Sub