Отчистить содержимое через макрос (Microsoft Office Excel)

Private Sub CommandButton3_Click() ' Delete_gel Макрос Удаление столбца "Штук"
  Dim r
  with worksheets(x)
    r = .Cells(.Rows.Count, 69).End(xlUp).Row
    If r > 2 Then Range(.[bq3], .Cells(r, 69)).ClearContents
  end with
End Sub