Select cells, copy, paste, move down one row repeat

[tellerak]

Is there was a way to create a macro that copies selected cells in a row, paste the copied cells into a set number of rows below that row of selected cells, move to the next row following the pasted cells and repeat the process of selecting the cells from that new row? I need to do this both for selected rows and transposing selected cells in a row. I have provided the macro created by doing this manually over and over. Hopefully there is an easier way.

'****copy and paste into specific number of rows

Range("A870:H870").Select
Application.CutCopyMode = False
Selection.Copy
Range("A870:H883").Select
ActiveSheet.Paste
Selection.End(xlDown).Select
Range("A884:H884").Select
Application.CutCopyMode = False
Selection.Copy
Range("A884:H897").Select
ActiveSheet.Paste
Selection.End(xlDown).Select

'*****this one is transposing

Range("K16:X16").Select
Application.CutCopyMode = False
Selection.Copy
Range("J16").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Selection.End(xlDown).Select
Range("K30:X30").Select
Application.CutCopyMode = False
Selection.Copy
Range("J30").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("J31").Select
Selection.End(xlDown).Select

Thanks
David

[shg]

Welcome to the forum.

Please take a few minutes to read the forum rules, and then edit your post to add code tags.

Thanks.