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.

Sub Delete930()
Dim rng As Range, i As Integer
    Set rng = Range("B1:B500")
    For i = rng.Rows.Count To 1 Step -1
      If rng.Cells(i).Value = "930" Then rng.Cells(i).Delete Shift:=xlUp
      
        
     
    Next
End Sub

Try

If rng.Cells(i).Value = "930" Then rng.Cells(i).offset(0,-1).resize(1,2).Delete Shift:=xlUp

Sub Delete930()
Dim i As Integer

    For i = 500 To 1 Step -1
      If Range("B" & i).Value = "930" Then
        Range("A" & i).Resize(1, 2).Delete Shift:=xlUp
      End If
    Next i
    
End Sub

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.