Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim i As Integer
    For Each ws In Worksheets
        ws.Select
        For i = 1 To ws.Cells(Rows.Count, "Y").End(xlUp).Row
            If ws.Cells(i, "Y").Value = "G" And ws.Cells(i, "Z") > 1 Then
                ws.Range(ws.Cells(i - 1, "Y"), ws.Cells(i - 1, "Z")).Value = _
                ws.Range(ws.Cells(i, "Y"), ws.Cells(i, "Z")).Value
                ws.Cells(i, "Y").Select
                Selection.EntireRow.Delete Shift:=xlUp
            End If
        Next i
    Next ws
End Sub