Sub Canc_B_H() Dim Nriga As Long Nriga = ActiveCell.Row Range(Cells(Nriga, "B"), Cells(Nriga, "H")).ClearContents End Sub