por que me falla esta macro???? donde la marco en rojo

Private Sub CommandButton1_Click()

Range("E8").Select

Selection.Copy 'copiar el rango de los datos

Sheets("Informe Mensual").Select ' seleccionar la hoja donde pegar los datos

Range("A3000").Select ' ir a la celda

Selection.End(xlUp).Select 'subir hasta la ultima celda con datos

ActiveCell.Offset(1, 0).Select ' bajar una celda

ActiveSheet.Paste 'pegar los datos

Application.CutCopyMode = False

Sheets("Conductivo").Select 'seleccionar la hoja 1

Range("E8").Select 'seleccionar rango de los datos

Selection.ClearContents 'borrar la seleccion

Range("E8").Select 'posicionarse en la celda A1

MsgBox "Traslado finalizada, puede volver a ingresar datos" ' lanzar mensaje de que se ha finalizado

End Sub

Gracias

Amigo creo que tendrías que subir el archivo, ya que lo corrí y no me genero ningún error.

Saludos