Private Sub WorkSheet_Change(ByVal Target As Range)
    Application.EnableEvents = False

    Dim x As Integer

    Sheets("Sheet1").Select
    x = Range("A1").Value
'проверяю есть ли значение в ячейке с количеством столбцов
    If x > 0 Then
'проверяю на заполненность последнюю ячейку
        If Worksheet("Sheet1").Cells(48, 3 + x).Value <> "" Then
            DrawChart1
        End If
    End If

    Application.EnableEvents = True
End Sub

Private Sub WorkSheet_Change(ByVal Target As Range)
    Application.EnableEvents = False

    Dim x As Integer
    Dim r As Range
    
    Sheets("Number of Transaction").Select
    x = Range("A1").Value
    If x > 0 Then
        Set r = Range(Cells(48, 3 + x), Cells(48, 3 + x))
        If Not (Intersect(r, Target) Is Nothing) Then
            If Worksheet("Number of Transaction").Cells(48, 3 + x).Value <> "" Then
                DrawChart1
            End If
        End If
    End If

    Application.EnableEvents = True
End Sub