Sub s() For i = 1 To 6 [c25] = i [d23:k23].Copy Cells(25 + i, "m").PasteSpecial xlPasteValues NextEnd Sub
