"Run-time error '13': Type mismatch" when deleteing multiple cells from targeted columns

I'm new to this forum but it looks like the place to be to get help with Macros

I have the following code that works great, it essentially puts Auto Caps on anything in columns B, F, AA, and DX which is what I want but when I go to delete multiple items in the same row from these columns I get this error: "Run-time error '13': Type mismatch"

I then select debug and it highlights this line in yellow from my code: Target = UCase(Target)

Here's my code:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim LastRow As Long
  Dim Rng As Range
  Dim StartCell As String
  Dim StartRow As Long
  
    StartCell = "B2"
    
      With Range(StartCell)
        C = .Column
        StartRow = .Row
      End With
      
      LastRow = Cells(Rows.Count, C).End(xlUp).Row
      LastRow = IIf(LastRow < StartRow, StartRow, LastRow)
      Set Rng = Range(Cells(StartRow, C), Cells(LastRow, C))
      
   Application.EnableEvents = False
   
        Select Case Target.Column
          Case 2, 6, 27, 128
            Target = UCase(Target)
          End Select
      
    Application.EnableEvents = True
End Sub

Any help would be greatly appreciated!

Thanks!

the first part of your code doesn't seem to do anything? why is it there?

perhaps

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Rng As Range
if not intersect(target, range("B:B,f:F, aa:AA,dx:DX")) is nothing then
   Application.EnableEvents = False
   for each rng in intersect(target, range("B:B,f:F, aa:AA,dx:DX")).cells
            Rng.value = UCase(Rng.value)
   Next rng
      
    Application.EnableEvents = True
   end if
End Sub

please note the code tags I added to your post-you need to use them when posting code