Code:
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