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
Code
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
Display More