Range Error in VBA Code

[srlakra]

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") = Application.WorksheetFunction.Max(y, z)

Next i

End Sub

Excel is

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

S/L

Prime

UK

Desc.

Division

Category

W1

W2

W3

W4

W5

W6

W7

W8

DMD

DDD

TTTT

E2

rrrr

0

0

0

1

0

1

2

3

1

0

<colgroup><col><col><col span="13"></colgroup><tbody>
</tbody>

Getting error in bold line Plz help

 

[Michael M]

Re: Range Error in VBA Code Please help

Try changing your Dim Statements

Dim i, x, y, z As Long
Dim R1, R12 As Range

to

Dim i as long, x as long, y as long, z As Long
Dim R1 as variant, R12 As variant

 

[NdNoviceHlp]

Re: Range Error in VBA Code Please help

Dim R1 as Range
Set R1 = Range("G" & i & ":J" & i)
Set R12 = Range("K" & i & ":M" & i)

HTH. Dave

 

[srlakra]

Re: Range Error in VBA Code Please help

Thanks Michael & Dave

 

[NdNoviceHlp]

Re: Range Error in VBA Code Please help

You are welcome. Thanks for posting your reply. Dave