I am trying to copy a column value and paste as a new row after each row as a merged cell. I have started my step towards this and managed to add a blank row after each row on specified sheet with range but need further on copying the column cell value and paste into each row.
Any help would be appreciated!!!!
Thanks much in advance
Sub Macro1() Dim LastRow, RowNumber As Long Dim ws As Worksheet 'FOLLOWING WORKS WITH RANGED AND SPECIFIED SP.... Set ws = ThisWorkbook.Worksheets("Asset") With ws LastRow = Cells(Rows.Count, "A").End(xlUp).Row For RowNumber = LastRow To 11 Step -1 'FROM WHAT ROW TO START THE INSERT ROW... .Rows(RowNumber).Insert Next RowNumber End With End Sub