Sub Test()
    Dim LastRow As Integer
    Dim Hires As Integer, I As Integer
    Dim colRank As Range
    Dim rngFindRank As Range
    
    'Pick up Number of Hires Wanted
    'in my example value is in cell G1
    If Not Range("G1").Value = "" Then
        Hires = Range("G1").Value
    Else
        MsgBox "Please insert number of Hires into Cell G1"
        Exit Sub
    End If
    
    'set up the Rank Column (A)
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    Set colRank = Range("A2:A" & LastRow)
    
    
    'Loop through each rank and assign Hires
    For I = 1 To LastRow - 1 '-1 as rank starts in cell 2
        'Find Lowest Rank
        Set rngFindRank = colRank.Find(I)
        If Not rngFindRank Is Nothing Then
            'check to see if total can be filled
            If rngFindRank.Offset(0, 1).Value <= Hires Then
                'case when more hires than hore ability
                rngFindRank.Offset(0, 2).Value = rngFindRank.Offset(0, 1).Value
                Hires = Hires - rngFindRank.Offset(0, 1).Value
            Else
                rngFindRank.Offset(0, 2).Value = Hires
                Hires = 0
            End If
        End If
        'clear object Variable
        Set rngFindRank = Nothing
    Next I
    
    'put remainders into remainder box
    'in this example cell G2
    Range("G2").Value = Hires
        
End Sub