VBA code not printing in output cells

[wabrown90]

Attempting to move information in the cells on the left into various cells over on the right. Not sure why the code is not printing properly. I have attached an example along with my code below.

Sub Simulate()

a = 4
g = Sheet3.Cells(Rows.Count, "A").End(xlUp).Row

Sheet3.Range("K4:BF101").ClearContents

Dim away_team As String
Dim home_team As String
Dim away_ML As Integer
Dim home_ML As Integer
Dim away_line As Integer
Dim home_line As Integer
Dim loca As String

For a = 4 To g

    away_team = Sheet3.Cells(a, 7).Value
    home_team = Sheet3.Cells(a, 8).Value
    away_ML = Sheet3.Cells(a, 4).Value
    home_ML = Sheet3.Cells(a, 5).Value
    home_line = Sheet3.Cells(a, 3).Value
    away_line = home_line * -1
    loca = Sheet3.Cells(a, 6).Value
    
    If loca = "H" Then
        
        Sheet3.Cells(a, 11).Value = Sheet3.Cells(a, 2).Value & "A"
        Sheet3.Cells(a + 1, 11).Value = Sheet3.Cells(a, 2).Value & "B"
        Sheet3.Cells(a, 12).Value = "A"
        Sheet3.Cells(a + 1, 12).Value = "H"
        Sheet3.Cells(a, 13).Value = away_line
        Sheet3.Cells(a + 1, 13).Value = home_line
        Sheet3.Cells(a, 14).Value = away_ML
        Sheet3.Cells(a + 1, 14).Value = home_ML
        Sheet3.Cells(a, 15).Value = away_team
        Sheet3.Cells(a + 1, 15).Value = home_team
        Sheet3.Cells(a, 16).Value = home_team
        Sheet3.Cells(a + 1, 16).Value = away_team
    
    ElseIf loca = "N" Then
    
        Sheet3.Cells(a, 11).Value = Sheet3.Cells(a, 2).Value + "A"
        Sheet3.Cells(a + 1, 11).Value = Sheet3.Cells(a, 2).Value + "B"
        Sheet3.Cells(a, 12).Value = "N"
        Sheet3.Cells(a + 1, 12).Value = "N"
        Sheet3.Cells(a, 13).Value = away_line
        Sheet3.Cells(a + 1, 13).Value = home_line
        Sheet3.Cells(a, 14).Value = away_ML
        Sheet3.Cells(a + 1, 14).Value = home_ML
        Sheet3.Cells(a, 15).Value = away_team
        Sheet3.Cells(a + 1, 15).Value = home_team
        Sheet3.Cells(a, 16).Value = home_team
        Sheet3.Cells(a + 1, 16).Value = away_team
        
    End If
         
    
Next a

End Sub