Visual Basic para Aplicaciones - error 1004

Hola, tengo esto en visual basic, lo que necesito es pararme en la celda a1 , y me produce un error, que sera?

Private Sub CommandButton3_Click()
Selection.Copy

Sheets("informe diario").Select
Range("a1").Select ' cuando lo posiciono aparce el error

ActiveCell.Offset(9, 0).Select ' me ubico donde necesito pegar
ActiveCell.Offset(0, 1).Select
Salir = "No"
While Salir = "No"
While ActiveCell.Value <> "" 'busco las celdas que estte vacio bajando cada vez mas
ActiveCell.Offset(1, 0).Range("A1").Select
Wend
ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell.Value <> "" Then
Salir = "No"
Else
Salir = "Si"
ActiveCell.Offset(-1, 0).Range("A1").Select

End If
Wend
ActiveSheet.Paste

Sheets("lista clientes").Select
mensaje = MsgBox("Actualice el estado del cliente que se encuentra en negrilla!!")


End Sub