I am getting a runtime error 13: Type Mismatch when I run this code. Any suggestions? FYI not all the code in Private Sub January() is shown... Thanks

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Or "$C$12" Or "$C$14" Or "$C$16" Then
January
End If
End Sub

Private Sub January()
If Sheets("Income Statement").Range("C10") = "Input ($)" Then
Sheets("Income Statement").Range("I10") = ""
Sheets("Income Statement").Range("E10") = Sheets("Income Statement").Range("E9")
Sheets("Income Statement").Range("F10") = Sheets("Income Statement").Range("F9")
Sheets("Income Statement").Range("G10") = Sheets("Income Statement").Range("G9")
Sheets("Income Statement").Range("I9") = Sheets("Income Statement").Range("I10")
Range("E10:I10").NumberFormat = "$#,##0"

If Sheets("Income Statement").Range("C10") = "$ Change from Previous Year" Then
Sheets("Income Statement").Range("I10") = ""
Sheets("Income Statement").Range("E10") = "na"
Sheets("Income Statement").Range("F10") = Sheets("Income Statement").Range("F9") - Sheets("Income Statement").Range("E9")
Sheets("Income Statement").Range("G10") = Sheets("Income Statement").Range("G9") - Sheets("Income Statement").Range("F9")
Range("E10:I10").NumberFormat = "$#,##0"

If Sheets("Income Statement").Range("C10") = "% Change from Previous Year" Then
Sheets("Income Statement").Range("I10") = ""
Sheets("Income Statement").Range("E10") = "na"
Sheets("Income Statement").Range("F10") = (Sheets("Income Statement").Range("F9") - Sheets("Income Statement").Range("E9")) / Sheets("Income Statement").Range("E9")
Sheets("Income Statement").Range("G10") = (Sheets("Income Statement").Range("G9") - Sheets("Income Statement").Range("F9")) / Sheets("Income Statement").Range("F9")
Range("E10:I10").NumberFormat = "#.00%"

If Sheets("Income Statement").Range("C12") = "Input ($)" Then
Sheets("Income Statement").Range("I12") = ""
Sheets("Income Statement").Range("E12") = Sheets("Income Statement").Range("E11")
Sheets("Income Statement").Range("F12") = Sheets("Income Statement").Range("F11")
Sheets("Income Statement").Range("G12") = Sheets("Income Statement").Range("G11")
Range("E12:I12").NumberFormat = "$#,##0"