Sub Deploy()
Dim i, x, y, z As Long
Dim R1, R12 As Range
x = Cells(Rows.Count, "A").End(xlUp).Row
For i = 9 To x
R1 = Range("G" & i & ":J" & i)
R12 = Range("K" & i & ":M" & i)
y = Application.WorksheetFunction.Average(R1)
z = Application.WorksheetFunction.Average(R12)
Cells(i, "O") =...