VBA to set Upper Case & Lower Case

Hello,

I have a tracker with several worksheets. Each Worksheet has the following macro assigned;

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cell As Range
    
    Application.EnableEvents = True

' ~~>  Formats column 'B' to uppercase
    Application.EnableEvents = False
        If Target.Column = 2 Then
            On Error Resume Next
            For Each Cell In Target
                Cell = UCase(Cell)
            Next
        End If
    Application.EnableEvents = True

' ~~>  Checks to see if column 'C' has been changed and set characters to uppercase
    Application.EnableEvents = False
        If Target.Column = 3 Then
            On Error Resume Next
            For Each Cell In Target
                Cell = UCase(Cell)
            Next
        End If
    Application.EnableEvents = True

' ~~>  Checks to see if column 'G' has been changed and set characters to uppercase
    Application.EnableEvents = False
        If Target.Column = 7 Then
            On Error Resume Next
            For Each Cell In Target
                Cell = UCase(Cell)
            Next
        End If
    Application.EnableEvents = True
End Sub

The tracker also runs the following macro against all worksheets when I save it;

    Sheets(“Sheet1”).Select
    Range(“Table_T1”).Select
    Range("B2").Activate
    ActiveWorkbook.Worksheets(“Sheet1”).ListObjects(“Table_T1”).Sort.SortFields. _
        Clear
    On Error Resume Next
        ActiveSheet.ShowAllData
    On Error GoTo 0
    ActiveWorkbook.Worksheets(“Sheet1”).ListObjects(“Table_T1”).Sort.SortFields. _
        Add Key:=Range("Table_T1[Order]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets(“Sheet1”).ListObjects(“Table_T1”).Sort.SortFields. _
        Add Key:=Range("Table_T1[Call" & Chr(10) & "Reference]"), SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(“Sheet1”).ListObjects(“Table_T1”).Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 9
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
        .Italic = False
    End With
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayGridlines = False
    Columns("A:K").Select
    Columns("A:K").EntireColumn.AutoFit
    Columns("A").EntireColumn.Hidden = True
    Range("B2").Select

Column I has entries in the format of 'uuuuuu.llllll.llllll', where the length of each section can differ and each character could be either a letter or number. I want to make all the "u" uppercase and all the 'l' lower case.