Here is all my code. It is very long. Thank you for taking a look at it!
Sub Balance()
Application.ScreenUpdating = False
' Clear_Data Macro
Range("A14").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Range("A14").Select
'Copy Account numbers over to Balance Sheet
Sheets("VB Input").Select
Range("C3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Balances").Select
Range("A14").Select
ActiveSheet.Paste
Application.Run "'MP TB.xls'!Balance_Amounts"
Columns("B:B").Select
Selection.NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)"
Range("b15").Select
Range("B14").Select
ActiveCell.FormulaR1C1 = "Balance"
Range("B14").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="-"
Range("B15").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
Selection.AutoFilter
Application.ScreenUpdating = True
End Sub
Sub Balance_Amounts()
Application.ScreenUpdating = False
Select Case Sheets("Balances").Range("M1")
'October
Case Is = 1
Dim Rng As Range, c As Range
Set Rng = ActiveSheet.Range("A15:A" & Range("A65536").End(xlUp).Row)
For Each c In Rng
Cells(c.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC5,3,0)"
Next c
'November
Case Is = 2
Dim cell As Range
Cells.EntireRow.Hidden = False
Range("A15:A" & Range("A65536").End(xlUp).Row).Select
For Each cell In Selection
If Left(cell.Text, 1) = "1" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC6,4,0)"
If Left(cell.Text, 1) = "2" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC6,4,0)"
If Left(cell.Text, 1) = "3" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC6,4,0)"
If Left(cell.Text, 1) > "3" Then Cells(cell.Row, "b") = "=SUM(INDEX('VB Input'!R1C5:RC6,MATCH(RC[-1],'VB Input'!R1C3:RC3,0),0))"
Next cell
'December
Case Is = 3
Cells.EntireRow.Hidden = False
Range("A15:A" & Range("A65536").End(xlUp).Row).Select
For Each cell In Selection
If Left(cell.Text, 1) = "1" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC7,5,0)"
If Left(cell.Text, 1) = "2" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC7,5,0)"
If Left(cell.Text, 1) = "3" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC7,5,0)"
If Left(cell.Text, 1) > "3" Then Cells(cell.Row, "b") = "=SUM(INDEX('VB Input'!R1C5:RC7,MATCH(RC[-1],'VB Input'!R1C3:RC3,0),0))"
Next cell
'January
Case Is = 4
Cells.EntireRow.Hidden = False
Range("A15:A" & Range("A65536").End(xlUp).Row).Select
For Each cell In Selection
If Left(cell.Text, 1) = "1" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC8,6,0)"
If Left(cell.Text, 1) = "2" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC8,6,0)"
If Left(cell.Text, 1) = "3" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC8,6,0)"
If Left(cell.Text, 1) > "3" Then Cells(cell.Row, "b") = "=SUM(INDEX('VB Input'!R1C5:RC8,MATCH(RC[-1],'VB Input'!R1C3:RC3,0),0))"
Next cell
'February
Case Is = 5
Cells.EntireRow.Hidden = False
Range("A15:A" & Range("A65536").End(xlUp).Row).Select
For Each cell In Selection
If Left(cell.Text, 1) = "1" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC9,7,0)"
If Left(cell.Text, 1) = "2" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC9,7,0)"
If Left(cell.Text, 1) = "3" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC9,7,0)"
If Left(cell.Text, 1) > "3" Then Cells(cell.Row, "b") = "=SUM(INDEX('VB Input'!R1C5:RC9,MATCH(RC[-1],'VB Input'!R1C3:RC3,0),0))"
Next cell
'March
Case Is = 6
Cells.EntireRow.Hidden = False
Range("A15:A" & Range("A65536").End(xlUp).Row).Select
For Each cell In Selection
If Left(cell.Text, 1) = "1" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC10,8,0)"
If Left(cell.Text, 1) = "2" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC10,8,0)"
If Left(cell.Text, 1) = "3" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC10,8,0)"
If Left(cell.Text, 1) > "3" Then Cells(cell.Row, "b") = "=SUM(INDEX('VB Input'!R1C5:RC10,MATCH(RC[-1],'VB Input'!R1C3:RC3,0),0))"
Next cell
'April
Case Is = 7
Cells.EntireRow.Hidden = False
Range("A15:A" & Range("A65536").End(xlUp).Row).Select
For Each cell In Selection
If Left(cell.Text, 1) = "1" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC11,9,0)"
If Left(cell.Text, 1) = "2" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC11,9,0)"
If Left(cell.Text, 1) = "3" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC11,9,0)"
If Left(cell.Text, 1) > "3" Then Cells(cell.Row, "b") = "=SUM(INDEX('VB Input'!R1C5:RC11,MATCH(RC[-1],'VB Input'!R1C3:RC3,0),0))"
Next cell
'May
Case Is = 8
Cells.EntireRow.Hidden = False
Range("A15:A" & Range("A65536").End(xlUp).Row).Select
For Each cell In Selection
If Left(cell.Text, 1) = "1" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC12,10,0)"
If Left(cell.Text, 1) = "2" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC12,10,0)"
If Left(cell.Text, 1) = "3" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC12,10,0)"
If Left(cell.Text, 1) > "3" Then Cells(cell.Row, "b") = "=SUM(INDEX('VB Input'!R1C5:RC12,MATCH(RC[-1],'VB Input'!R1C3:RC3,0),0))"
Next cell
'June
Case Is = 9
Cells.EntireRow.Hidden = False
Range("A15:A" & Range("A65536").End(xlUp).Row).Select
For Each cell In Selection
If Left(cell.Text, 1) = "1" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC13,11,0)"
If Left(cell.Text, 1) = "2" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC13,11,0)"
If Left(cell.Text, 1) = "3" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC13,11,0)"
If Left(cell.Text, 1) > "3" Then Cells(cell.Row, "b") = "=SUM(INDEX('VB Input'!R1C5:RC13,MATCH(RC[-1],'VB Input'!R1C3:RC3,0),0))"
Next cell
'July
Case Is = 10
Cells.EntireRow.Hidden = False
Range("A15:A" & Range("A65536").End(xlUp).Row).Select
For Each cell In Selection
If Left(cell.Text, 1) = "1" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC14,12,0)"
If Left(cell.Text, 1) = "2" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC14,12,0)"
If Left(cell.Text, 1) = "3" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC14,12,0)"
If Left(cell.Text, 1) > "3" Then Cells(cell.Row, "b") = "=SUM(INDEX('VB Input'!R1C5:RC14,MATCH(RC[-1],'VB Input'!R1C3:RC3,0),0))"
Next cell
'August
Case Is = 11
Cells.EntireRow.Hidden = False
Range("A15:A" & Range("A65536").End(xlUp).Row).Select
For Each cell In Selection
If Left(cell.Text, 1) = "1" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC15,13,0)"
If Left(cell.Text, 1) = "2" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC15,13,0)"
If Left(cell.Text, 1) = "3" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC15,13,0)"
If Left(cell.Text, 1) > "3" Then Cells(cell.Row, "b") = "=SUM(INDEX('VB Input'!R1C5:RC15,MATCH(RC[-1],'VB Input'!R1C3:RC3,0),0))"
Next cell
'September
Case Is = 12
Cells.EntireRow.Hidden = False
Range("A15:A" & Range("A65536").End(xlUp).Row).Select
For Each cell In Selection
If Left(cell.Text, 1) = "1" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC16,14,0)"
If Left(cell.Text, 1) = "2" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC16,14,0)"
If Left(cell.Text, 1) = "3" Then Cells(cell.Row, "b") = "=VLOOKUP(RC[-1],'VB Input'!R1C3:RC16,14,0)"
If Left(cell.Text, 1) > "3" Then Cells(cell.Row, "b") = "=SUM(INDEX('VB Input'!R1C5:RC16,MATCH(RC[-1],'VB Input'!R1C3:RC3,0),0))"
Next cell
End Select
Set Rng = Nothing
End Sub