Whats wrong with my code, copy paste does not change Array formula

[Paul_Hossler]

1. You never set j so it's = 0

2. No idea what this is intended to do, but the syntax is probably wrong

With Sheets("Game" & x(i, 1)).Columns(1).SpecialCells(2) 
      .Areas(j)(.Areas(j).Count + 1, 1).Resize(, 91).Value = Application.Index(x, i, 0) 
 End With

but if sub ClearGames works, maybe something based on it's logic

For Each r In wsh.Columns(1).SpecialCells(2).Areas 
           r.Resize(, 91).Offset(1).Value = Application.Index(x, i, 0) 
 Next