用于选择具有偏移条件的多个不同活动单元的vba

I am new to vba and I have vba code for activecell with offset codition. The following code selects few cells based on offset condtion. I want to get selected same number of cells if more than one cell or multiple cells are selected. please help me. Thanks in advanceI am new to vba and I have vba code for activec