Quote Originally Posted by Paul_Hossler View Post
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
Paul,
im trying very hard to understand VBA, what should 0 be? What does that code say or what does it do? Perhaps if I understand this I can help my student as well as myself to ask a more intelligent question. I'm still writing up a description /procedure what and how his spreadsheet should work. Almost done
as always thanks, and if I need to start a new post with the description please let me know