Copy row and paste

[Shadkng]

Hi, I am trying to copy the active row (based on any selected cell in that row) to a new row number that is entered into the input box. I Any help is appreciated. Thanks

Sub REMAKE_COPY_LINE()
Dim n As Variant 'Long 'Integer, rng As Range

Selection.EntireRow.Copy

n = InputBox("ENTER ROW TO COPY TO")
    If n = vbNullString Then Exit Sub

End Sub

 

[Logit]

Option Explicit

Sub InsertCopyOfRowBelow()
 Dim rg As Range
 Set rg = Application.InputBox("Select cell where to copy row below : ", , , , , , , 8)
 ActiveCell.EntireRow.Copy
 rg.EntireRow.Insert
 Application.CutCopyMode = False
End Sub

You'll want to add error checking.

 

[Shadkng]

Option Explicit

Sub InsertCopyOfRowBelow()
Dim rg As Range
Set rg = Application.InputBox("Select cell where to copy row below : ", , , , , , , 8)
ActiveCell.EntireRow.Copy
rg.EntireRow.Insert
Application.CutCopyMode = False
End Sub

You'll want to add error checking.

 

[Shadkng]

This code seems to be inserting a line. Also I have to specify a cell, but I prefer to specify just a line number in the input box to copy over.

 

[Logit]

Option Explicit

Sub InsertCopyOfRowBelow()
  Dim lnRow As Long
  lnRow = InputBox("Enter Row number.", "Row Input")
  ActiveCell.EntireRow.Copy Rows(lnRow & ":" & lnRow)
  Application.CutCopyMode = False
End Sub

 

[Shadkng]

Thanks Logit. Works perfectly.

 

[Logit]

You are welcome.