So i have this code, that unmerges some merged cells and then applies border
then i'm trying to set the value of the empty cells and its not working

The setting of the values is closer to the bottom of the code
There are two checks, one msgbox that says "its here"

and another that says "its here2" after the setting of the values

the second msgbox never comes up and has me very confused

anyone got any ideas?


Function MergeLeftSide1(Target As Variant)
    If Target.MergeCells = False Then
        MsgBox ("don't do anything")
    Else
        RowCnt = Target.Row
        ChkCol = 6
        NumOfRows = Target.MergeArea.Rows.count
        NumOfRows = NumOfRows - 1
        
        ActiveSheet.Range(ActiveSheet.Cells(RowCnt, ChkCol - 1), ActiveSheet.Cells(RowCnt + NumOfRows, ChkCol + 3)).Select
        With Selection
            .UnMerge
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
        End With

        
        ActiveSheet.Range(ActiveSheet.Cells(RowCnt, ChkCol - 1), ActiveSheet.Cells(RowCnt, ChkCol + 3)).Select
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
          
        MsgBox ("its here")

        ActiveSheet.Range(Cells(RowCnt + NumOfRows, ChkCol - 1)).Select
        ActiveCell.FormulaR1C1 = "30"
        
        ActiveSheet.Range(Cells(RowCnt + NumOfRows, ChkCol)).Select
        ActiveCell.FormulaR1C1 = "12"

        MsgBox ("its here 2")
        
    End If
End Function