Excel VBA для цикла затем

Question

Я создал этот код, который, кажется, работает нормально, за исключением того, что я хотел бы добавить соответствующую сумму продаж в столбцах F к I под каждым соответствующим заголовком.

Я безуспешно пробовал несколько выражений, могут ли некоторые помочь?

Sub OfficeListByLocation()

  Dim LoopCounter As Long
  Dim NumberOfCells As Long
  Dim Branch As String
  Dim Location As String
  Dim E As Long
  Dim W As String
  Dim N As String
  Dim S As String
  Dim Sales As Long

  Worksheets("OfficeList").Activate

  NumberOfCells = Range("A3", Range("A2").End(xlDown)).Count

  For LoopCounter = 1 To NumberOfCells

    Branch = Range("A2").Offset(LoopCounter, 3).Text
    Sales = Range("A2").Offset(LoopCounter, 1).Value
    E = Range("A2").Offset(LoopCounter, 2).Value

     If Branch = "Miami" And Cells(3, 2).Value > 0 Then
       Location = "East"

     ElseIf Branch = "Melbourne" Then
       Location = "West"
       'W = "West"

     ElseIf Branch = "Jax" Then
        Location = "North"
        'N = "North"

     Else
        Location = "South"
        'S = "South"

     End If
     Range("A2").Offset(LoopCounter, 4).Value = Location

  Next LoopCounter    
End Sub