Error en Código para copiar información de una hoja a otra

Buenos días tengo este código que me realiza la siguiente función.

de una lista desplegable que hay en la celda E5 que son todas las hojas q hay en el archivo de excel, el usuario debe elegir una que es donde se va a copiar la información diligenciada en las celdas E7 y E9, después del usuario elegir la hoja, copiar la información de las dos celdas requeridas da click en el botón y esta información debe ser copiada en la celda libre de la columna B y C respectivamente. Al ejecutar en código q estoy usando me sale un error y aun no puedo encontrar el error ojala alguien me pueda ayudar.

Código:

Sub Ingresar_2()
If Range("E5") = "" Or Range("E7") = "" Or Range("E9") = "" _
Or Range("E13") = "" Or Range("E19") = "" Or Range("E21") = "" Then
MsgBox "Está dejando campos requeridos vacíos favor complete", vbExclamation, "Almacen"
Else
Dim valor As String
valor = Range("E5").Value
Sheets("IngresarExternos").Select
Range("E7").Select
Selection.Copy
Sheets(valor).Select
k = Range("B" & Cells.Rows.Count).End(xlUp).Row + 1 (ACA ME EJECUTA EL ERROR Y NO CONTINUA)
Range("B" & k).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("IngresarExternos").Select
Range("E9").Select
Selection.Copy
Sheets(valor).Select
k = Range("C" & Cells.Rows.Count).End(xlUp).Row + 1
Range("C" & k).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End If
End Sub

Gracias de Antemano.