Private Sub CommandButton1_Click()
Dim Pl As Range, Cel As Range, Lg&
' Application.ScreenUpdating = False
Application.EnableEvents = False
Range("J12:AC" & Rows.Count).Clear
Lg = Range("A" & Rows.Count).Row
Set Pl = Range("G12:G" & Lg)
For Each Cel In Pl.Rows
If Cel <> "" Then
With Range("J" & Cel.Row & ":AC" & Cel.Row).Interior
.Pattern = xlPatternLinearGradient
.Gradient.Degree = 90
' .Gradient.ColorStops.Clear
End With
With Range(Cells(Cel.Row, 10), Cells(Cel.Row, 9 + (Cel * 20))).Interior.Gradient.ColorStops
.Add(0).Color = 15773696
.Add(0.5).Color = 65535
.Add(1).Color = 15773696
.Add(0).TintAndShade = 0
End With
End If
Next Cel
' Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub