Macro to delete cell and its adjacent cell

Hello and thank you in advance for any help i may receive. My question is How do i delete a a cell in Column B and also clear the adjacent cell in Column A. Column B is a number which remains constant to a certain point and Column A has a corresponding names which varies. I also need the cells below to move up as they are deleted in both columns but stop when Column B reaches a new number. The following is what i have so far and it works great for column B. I cant figure out how to get Column A to go with it though.

Please Login or Register  to view this content.

Try

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Kaper that worked great. However another problem arose. I enclosing a sample worksheet for anyone that might be able to help. I am new at this so I am probably going the long way about things. What I am trying to accomplish is.. I have a list of employees and start times. The number of each may vary. I want to be able to match the name and start time, pick them from the list and put them in the appropriate location on other worksheets. I have 90% of this figured out already i believe. I am using IF statements in each cells to redirect the info to diff pages.