VBA to copy from one worksheet, convert data and paste to another worksheet

My source sheet (attached) contains list of devices.

Requirement:
Copy data from "Device Data" sheet into different worksheets in a different workbook.

Based on the column A (Device Type), I want to read the entire row, and copy the contents to another sheet.
If the Device Type is 'iPad' or 'PC', I want to copy the row into another workbook in sheet called "Computer System"
If the Device Type is 'Keyboard' or 'Mouse', I want to copy the row into another workbook in sheet called "Equipment"
If the Device Type is 'Printer', I want to copy the row into another workbook in sheet called "Printer"

Note that I would also like to add few more columns to the destination sheet based on the value of columns I read from source sheet.

Can someone help.