Screen blinking - no errors - no results

[montecarlo2012]

Hi.
This is what I am trying to do
Range("B11").Formula = "=average(B1:XX1)" ' average distribution B1
Range("B27").Formula = "=average(B17:XX17)" ' average distribution B17
Range("B43").Formula = "=average(B33:XX33)" ' average distribution B33
Range("B59").Formula = "=average(B49:XX49)" ' average distribution B49
Range("B75").Formula = "=average(B65:XX65)" ' average distribution B65
Range("B91").Formula = "=average(B81:XX81)" ' average distribution B81

So as long as I use this basic writing, I got my results, but when I write a little code
then the screen is blinking tremendously and even with application.screenupdate.
Plus no result.
Please can you tell me my mistakes, thanks
this is my code:

sub avg_m ()

Dim im As Long, cln As Long, XX As Long

XX = 1
  For im = 1 To 81 Step 16
For cln = 2 To Cells(2, Columns.Count).End(xlToLeft).Column
   Cells(im, "B").Formula = "=average(" & Cells(im, "B").Address & ":" & Cells(im, "XX").Address & ")"
   XX = XX + 16
  Next
Next
end sub

 

[johnnyL]

If you are trying to duplicate the results from the first set of code then why not:

    For im = 1 To 81 Step 16
        Range("B" & im + 10).Formula = "=average(B" & im & ":XX" & im & ")" ' average distribution
    Next

 

[montecarlo2012]

JohnnyL work perfect Thank you. I marked as solution.

 

[johnnyL]

Glad to help @montecarlo2012.

 

[montecarlo2012]

Mr. johnnyL, May I ask something about your code?

 

[johnnyL]

Absolutely!

 

[montecarlo2012]

Thank you for your response, but I figure out,
See you next post. will be a little more complex than this one.
Happy holidays.