00 27/04/2019 02:06
A scelta ricreare la prima per ogni tasto, oppure basta solo la seconda... 
Option Explicit
Option Compare Text
Sub Sigle_BA()
Dim Ur As Long, X As Long
Ur = Range("A" & Rows.Count).End(xlUp).Row
For X = 1 To Ur
    If Cells(X, 2) = "BA" Then
        Range(Cells(X, 1), Cells(X, 7)).ClearContents
        'oppure  Range(Cells(X, 1), Cells(X, 7)).Delete Shift:=xlUp
    End If
Next X
End Sub
Sub Sigle_tutte()
Dim Ur As Long, X As Long, N As Long, Msg As String
Ur = Range("A" & Rows.Count).End(xlUp).Row
Msg = InputBox("Digitare due caratteri, Ex BA", , "")
If Msg = "" Then Exit Sub
For X = 1 To Ur
    If Cells(X, 2) = Msg Then
        Range(Cells(X, 1), Cells(X, 7)).ClearContents
        'oppure  Range(Cells(X, 1), Cells(X, 7)).Delete Shift:=xlUp
        N = N + 1
    End If
Next X
If N = 0 Then MsgBox "Nessuna sigla con " & Msg
End Sub
[Modificato da raffaele1953 27/04/2019 02:16]
Excel 2013