copying information

Thank you to the members that helped on my previous topic, my new problem is a bit different from the last and I have attached a sample of part of system with all important information removed.

The simple code below is what I was using however the criteria has changed being that the system needs to go to the next empty column and then insert information and look into new work sheet.

If Sheet1.Range("C3") = "X" Then

Columns("C:C").Select
Selection.EntireColumn.Copy

If Sheet1.Range("C3") = "/" Then
End Sub

this is based off this formula that looks at a line of dates and give a True ("X") or False ("/") answer.
=IF(AND($A$4<=A6,$A$5>=A6),"X","/")



but this would take a long time wirting code for each column. I written a code which would stop when a cell is not empty but dont know how to intergate the two as well as make it so that it will start on a new worksheet after getting to the final "X".

Please Login or Register  to view this content.

Thank you in advance

Try working with this

Please Login or Register  to view this content.

What is supposed to happen?

What is supposed to happen?

If true ("X") then it should select the column the related defined sheet and then copy it to the activated sheet. I also need it to go to the next define worksheet "next c" and go through the same process. The code at the moment because the code coming up with an error i have not been able to start working on it skip over it data from the previous define worksheet which is in the in the activated worksheet to start on a blank worksheet.