ActiveCell.Range("A1,A3,A5,A7,A9,A11,A13,A15,A18,A20,A22,A24,A26,A28,A30,A32,A35,A37,A39,A41,A43,A45,A47,A49,A52,A54,A56,A58,A60,A62,A64,A66,A69,A71,A73,A75,A77,A79,A81,A83,A86,A88,A90,A92,A94,A96,A98,A100,A103,A105,A107,A109,A111,A113,A115,A117,A119,A122,A124,A126,A128").Select
