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