Can't add values to an array

[sharky12345]

I'm trying to add values from a row to an array and just can't figure it out.

What I can't work out is how to add the values from column H onward to an array. It's probably very straightforward but I've tried all manner of solutions and just can't get it to work. The latest thing I have tried is producing an array but it has extra blank values added too.

This is what I've been playing with, (don't make fun at how rough and crude it is, I'm doing my best to tinker and learn!).

LastRow = ThisWorkbook.Worksheets("COPYRESULTS").Range("A65536").End(xlUp).Row

For Each Cell In ThisWorkbook.Worksheets("COPYRESULTS").Range("A2:A" & LastRow)

r = Cell.Row

ColNo = Cells(r, Columns.Count).End(xlToLeft).Column
ColLe = Col_Letter(Cells(r, Columns.Count).End(xlToLeft).Column)

Dim myary(1 To 7) As String
Dim var As Integer
Dim myrang As Range, myC As Range
var = 1
Set myrang = Range("H3:" & ColLe & "3")
For Each myC In myrang
myary(var) = "• " & myC.Value
var = var + 1
Next myC
For var = LBound(myary) To UBound(myary)
Debug.Print myary(var)
Next var

Next Cell

Any advice is appreciated!

 

[kevin9999]

Thank you - I'll look at it tomorrow Oz time.

 

[kevin9999]

A colleague @Alex Blakenburg has pointed out that the issue could have been caused by a misalignment of the code with the actual data. Could you just check that the Summary column is column G, and that your data starts in row 2 with headers in row 1?

 

[sharky12345]

Morning

I have no idea what I did yesterday because when I ran it this morning it works fine, so I'm sorry for the confusion but thank you so much for solving it for me!

 

[kevin9999]

Happy to help & thanks for the feedback