Problema VBA

Tengo esto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    antes = "A2:" & "A" & Target.Row - 1
    despues = "A" & Target.Row + 1 & ":A1000"
    Worksheets("Convenios").Range(antes).Select
    Worksheets("Convenios").Range(despues).Select
Else
    Exit Sub
End If
End Sub
Lo que quiero es que cuando modifique cualquier celda de la columna A, automáticamente se borren todas las anteriores y todas las posteriores hasta A1000.
La macro parece funcionar haciendo el select, pero si cambio este select por ClearContents, que es lo que realmente quiero hacer, me da error 1004.