You can avoid the For.. Next loopTry this:Sheets("report").ActivateRange(Cells(1, 1), Cells(1, 17)) = KOr if you want to keep the upper range of K flexible, then try:u = UBound(K)Sheets("report").ActivateRange(Cells(1, 1), Cells(1, u)) = K