Thank you Jacob, when i replace the code and then run the macro it adds all
the data into side by side columns when i need it to follow the process i had
done including some blank columns to b left ( i add additional info into
these that is not always the same)
I read somewhere that you need to be recorded "relatively" not sure what
this ment

"Jacob Skaria" wrote:

You can replace your existing macro with the new macro..

If this post helps click Yes
---------------
Jacob Skaria


"Shane" wrote:

Jacob - thank you for coming back so quickly
I am so sorry but i don't understand (very new to macro's) where i need to
add the sub Macro
Could you advise please

"Jacob Skaria" wrote:

Activate sheet 'Stock Transactions' and select the copy location and try the
below macro..

Sub Macro()
Sheets("Pilot Valve Material").Range("A2:E53").Copy _
Sheets("Stock Transactions").Range(ActiveCell.Address)
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Shane" wrote:

I have the following code to get information copied from one sheet to another
What i would like to happen is the cell i highlight and then press the macro
button the information is copied to to that position, and not to keep
defaulting to the one shown in the macro
Is there a peice of code i need to add to overcome this, any help you can
give will be much appreciated

Sheets("Pilot Valve Material").Select
Range("A2:B53").Select
Selection.Copy
Sheets("Stock Transactions").Select
Range("A1597").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=27
Sheets("Pilot Valve Material").Select
Range("C2:C53").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Stock Transactions").Select
Range("C1597").Select
ActiveSheet.Paste
Sheets("Pilot Valve Material").Select
Range("D2:E53").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Stock Transactions").Select
Range("D1597").Select
ActiveSheet.Paste
End Sub