Remove text between [brackets]

Hello Benni5555,

Welcome to the Forum! This will do it.

Sub RemoveDataInBrackets()

    Dim Cell    As Range
    Dim Matches As Object
    Dim RegExp  As Object
    Dim Rng     As Range
    Dim Text    As String
    Dim Wks     As Worksheet
    
        Set Wks = ActiveSheet
        
        Set Rng = Wks.Range("A1:A6000")
        
            Set RegExp = CreateObject("VBScript.RegExp")
            RegExp.Global = True
            RegExp.Pattern = "\[[^\[\]]*\]"
        
            For Each Cell In Rng
                Text = Cell
                Set Matches = RegExp.Execute(Text)
                If Matches.Count > 0 Then Text = RegExp.Replace(Text, "")
            Next Cell

End Sub