I'm only showing the code to see how I'm getting the data (rows) into the clipboard.
We use this Macro because it easily copys multiple non-adjacent selected rows from one worksheet to the clipboard. We can then left click, insert, then select down but I do it so often it would be helpful to have a button or keystroke Macro after just selecting the row where I need the data (rows) inserted.
Code
Sub CopytoClipboardandDelete2()
Dim obj As New MSForms.DataObject
Dim x, str As String
Dim count As Integer
count = 0
For Each x In Selection
count = count + 1
If x <> "" Then
If count = 1 Then
str = str & x
Else
str = str & Chr(9) & x
End If
End If
If count = 16384 Then
str = str & Chr(13)
count = 0
End If
Next
obj.settext str
obj.PutInClipboard
Selection.Delete Shift:=xlUp
Sheets.Add After:=Sheets(Sheets.count)
ActiveSheet.Paste
Selection.Cut
ActiveWindow.SelectedSheets.Visible = False
End Sub
Display More