Copy Data If Filled, Paste In Next Available Column In A Range

Ive been trying to find out how i can paste information in the next available column but between certain columns. Here is an example of what im trying to do. There is a calculator which represents 3 machines. It runs different senerios if you change the % of product going into it (cells to change this are light blue). What im trying to do is take the information the machine outputs to the right and organize it on the next worksheet.

The data on the next worksheet is a combination of all the machines performance (in yellow) together and the machines personal performance (in red). when the button is pushed currently, I have the overall scenerios information filling down rows. What I would also like it to do is see if im using a machine (because it can be turned off by changing the usage to 0%), and if I am, copy the results form the individual machine to the next worksheet. When it copies it needs to see if the first machine slot is open and if not the second and paste in the available location. I cant have a specific spot for each machine on the real worksheet cause there are maybe 100 machines and if 15 are used I only want the first 15 machine info slots filled and im gonna hide the rest of the columns. The way the columns fill also cant be like the rows where it looks for next available free spot. It has to only be for the specific range in red because there is info to the right of where this is going.

Sub Send_Data()
Sheets("Calculator Sheet").Select
Range("AD9, AE9, AG9").Copy
Sheets("output sheet").Select
Range("B65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub