oke sorry
I discovered by myself.
I only omit this part.
Thanks a lor Ross.
            For Each Cell In SrcWks.Range("AL6:AM6")
                c = c + 1
                Data(1, c) = Cell.Value
            Next Cell