Excel vba code help

Question

hello guys,
I am new in writing vba codes. Each of the rows in range"N:Q" Should cut and pated in empty space of range "A:D"whenever it was being selected. My boss asked me define a key . So instead of cutting and pasting each row every time, just
by pushing one key ,it can get done.
N                                      O                             P      
                                     Q
21-JUL-14                       0.00                        $ 61                      
                $ 0.00
21-JUL-14                         0.00                       $42                      
                 $ 0.00
this data should get cut and paste as needed to available empty space in :
A B C D
21-JUL-14                       0.00                        $ 61                      
                $ 0.00
Here is my code but it does not work :(
Sub MACRO1()
Sheets("OPERATING").Select
Range("A5:C5").Select
Selection.Copy
Sheets("OPERATING").Select
ActiveSheet.Paste
ANY HELP IS APPRECIATED!
Thanks

Answer 1

Hi,
You are selecting the target instead of the source. Try this:
Sub MACRO1()
Sheets("OPERATING").Select
Range("N5:Q5").Select
Selection.Copy
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
You don't have to select the range where the selection has to be copied to. Because the target range is the same as the source range selecting "A1" is sufficient. The last line disables the copy selection so it doesn't have the dotted line around
after it anymore when done pasting.
Maurice
When you see answers and helpful posts, please click Vote As Helpful, Propose As Answer, and/or Mark As Answer. Thank You