Application.Union(Range(Cells(5, 2), Cells(derlign, 2)), Range(Cells(5, 6), Cells(derlign, 6)), Range(Cells(5, 10), Cells(derlign, 10)), Range(Cells(5, 12), Cells(derlign, 12), Range(Cells(5, 16), Cells(derlign, 16)), Range(Cells(5, 17), Cells(derlign, 17))).Select