Copy Absolute(always same), Paste Relative (current cell)

[drewbsking]

The following code is the start of what I am trying to do. I want to always copy the entire row A155 and paste it to the active cell row (the cell that is currently selected when the macro is started). The problem however as soon as it selects the row to be copied my active row changes. I would like to accomplish this without any inputboxes. Any suggestion?!

Sub StdCopy()

Dim SelectedROW As Long

SelectedROW = ActiveCell.Row

Range("A155:A155").EntireRow.Select
Selection.Copy


'Option 1
'===This does not work, it paste right back to the copied row.
ActiveCell.EntireRow.Select
Selection.Paste
'===

'Option 2
'+++This does not work, I dont think I can mix absolute and relative code within the same macro. Plus it  simply does not work.  It errors out at this line.


cells(SelectedROW,0).EntireRow.Selection
Selection.Paste


End Sub

 

[VoG]

Try

Sub StdCopy()
Rows(155).Copy Destination:=Range("A" & ActiveCell.Row)
End Sub

 

[p45cal]

try just the one line:

Range("A155").EntireRow.Copy ActiveCell.EntireRow

and seeing VoG's response this works too:

Rows(155).Copy ActiveCell.EntireRow

 

[drewbsking]

All three variants work perfect. Wow one line of code is way better than the road I was going down. Thanks for your help!