Macro to copy range a data

[Howardc1001]

I have a range of account numbers on Sheet "imported Data' in Col A


I would like a macro to copy the data in Col A:D where the range of account numbers in Col A in in the range from KR-65 3000 to KR-65 3299


In the sample data attached A1:d17 to be copied and pasted to "stock items"


Your assistance in this regard is most appreciated

[queuesef]

I assumed no more than 1000 records (however, you can change it if you need to).
* If this has helped you in any way, Please click on the * to add reputation...Thank you!

[Howardc1001]

Thanks for the help. If I wanted to limit the items in the range to be copied (Col A to D) where the account numbers to be copied is from say KR-65 3020 to KR-65 3240, how do I amend your code to do this ?

[queuesef]

You could change the code in the Macro to

If c >= "KR-65 3020*" And c <= "KR-65 3240*" Then

(original code was: If c Like "KR-65*" Then. OR
you could use a filter on the data to copy what you would like. Use the Data Filter on the Data ribbon. PS you may need to open up more records IF you have over 1000. I didn't know exactly how many records you would have and limited it to 1000.
* If this has helped you in any way, Please click on the * to add reputation...Thank you!

[Howardc1001]

Thanks for the help -amended code works perfectly