Using VBA / Macro to autosort pairs of connecting columns and rows?

[Stephen2135]

I have a series of columns that I want to autosort, selecting from a range of filters. Each pair of columns are connected, so I want to sort columns A and B; then columns C and D. I want the information in columns/rows to sort individually. Columns A is coded Red, Amber and Green, Column B included the connecting information. Columns C again is coded Red, Amber and Green with the connecting information. When I use the sort function it sorts each row of infromation from Column A across.