I have the below macro that when I select a row either by selecting a cell or selecting a row and run the macro, it copys a row from another sheet and pastes below the row I have selected. I am wanting to add to it after the copy that it then copies the cell from the original selected row/column R and pastes it in the new row below it/Column R. I can't work it out. Anyone able to help?
Many thanks Mike
Many thanks Mike
Code:
Sub InsertItem()
'
' InsertItem Macro
'
'
Application.DisplayAlerts = False
Sheets("Base").Visible = True
Sheets("Base").Rows("250:250").Copy
ActiveSheet.Range("A" & ActiveCell.Row).Offset(1, 0).Insert
Application.CutCopyMode = False
Sheets("Base").Visible = False
Application.DisplayAlerts = True
End Sub