Need to insert.

Hello,

I have a budget workbook. Within is an input sheet.

The way it works is that a date and amount is entered, then there is a category dropdown. When a category is chosen, a macro is ran based on the selection and builds another dropdown (expenses) adjacent.

Once the expense is chosen, it calculates and copies the amount entered, to a budget sheet.

This all works great.

However, what I need to do is insert a new row above this entry and it errors. I have tried a few different methods and nothing will allow me to move that entry down. I could delete it, but I'd prefer there to be a list of all entries spanning down the sheet.

Here is the code I have in the sheet (not in a module) which runs the macros based on the dropdown selections. I have included one category's expenses as well. I was wondering if my B:B and C:C targets are interfering?

Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
Select Case Target
            Case "Home Expenses": CAT_HM
            Case "Daily Living": CAT_DLE
            Case "Children": CAT_CHLD
            Case "Savings": CAT_SAV
            Case "Obligations": CAT_OBLIG
            Case "Entertainment": CAT_ENT
        End Select
    End If
If Not Intersect(Target, Range("D:D")) Is Nothing Then
Select Case Target

'HOME EXPENSES CATEGORY
            
            Case "Mortgage": HE_MORT
            Case "Home Equity Line of Credit": HE_HELOC
            Case "Electricity (Connexus)": HE_ELEC
            Case "Gas": HE_GAS
            Case "Water/Sewer/Trash": HE_WST
            Case "Phone (Verizon)": HE_PHV
            Case "Internet": HE_INT
            Case "TV Sub - Disney/Hulu/ESPN": HE_TVSUB1
            Case "TV Sub - Netflix": HE_TVSUB2
            Case "Music Subsciptions": HE_MSUB
            Case "Furnishings/Appliances": HE_FA
            Case "Lawn/Garden": HE_LG
            Case "Home Supplies": HE_HS
            Case "Maintenance": HE_MAINT
            Case "Improvements": HE_IMP
            Case "Home Expenses Other": HE_HEO

I am hoping this is an easy beginner fix (I am not a pro by any means).

Thanks
Marc

There are two things:
1. There is personal information in this sheet. Children's names etc.
2. This issue has nothing to do with existing macros, I can remove all other macros with the exception of the one on the sheet (not a module) which is pasted in the original post, right-click on Row 2, select Insert and it still will not work.

I tried to attach images but I cannot for some reason.

Let me rephrase this issue for you.

On my sheet (not in a module), I have this code:

Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
Select Case Target
            Case "Home Expenses": CAT_HM
            Case "Daily Living": CAT_DLE
            Case "Children": CAT_CHLD
            Case "Savings": CAT_SAV
            Case "Obligations": CAT_OBLIG
            Case "Entertainment": CAT_ENT
        End Select
    End If

All of the Case Macros are presently disabled and there is not an error.

I navigate to the sheet, I select row 2, right-click it and select Insert.

I cannot attach images because of quirky limitations, however, I describe what happens:

This error popup occurs

Microsoft Visual Basic

Run-time error '13':

Type mismatch

I click Debug

I am navigated to VBA and this line is highlighted:

Case "Home Expenses": CAT_HM

of this line of code

Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
Select Case Target
            Case "Home Expenses": CAT_HM
            Case "Daily Living": CAT_DLE
            Case "Children": CAT_CHLD
            Case "Savings": CAT_SAV
            Case "Obligations": CAT_OBLIG
            Case "Entertainment": CAT_ENT
        End Select
    End If

This occurs if all my other macros are removed from the sheet.

I just want to insert a row and this (below) will not allow it.

Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
Select Case Target
            Case "Home Expenses": CAT_HM
            Case "Daily Living": CAT_DLE
            Case "Children": CAT_CHLD
            Case "Savings": CAT_SAV
            Case "Obligations": CAT_OBLIG
            Case "Entertainment": CAT_ENT
        End Select
    End If