S
Shane
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
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