Cut and Paste Macro

  • Thread starter Thread starter Price
  • Start date Start date
P

Price

I am trying to create a Macro that cuts some preset text and pastes it
to the cell that I currently have selected. I created a button and
linked it to a macro with the following code:

Sub Macro1()
Range("A1:C1").Select
Range("C1").Activate
Selection.Copy
Range("A8").Select
ActiveSheet.Paste
End Sub

The problem is that it always copies the code to cell A8. I see
where like 5 does this, but I haven't been able to find the command
which always puts it in the currently selected cell.

Your help is appreciated.

Price
 
This will do. Select the target cell, press the button.

Sub Macro1()
Range("A1:C1").Copy
ActiveSheet.Paste
End Sub
 
Back
Top