Buenos Ingresar Datos a Diferentes Base de Datos desde un Mismo Formulario

Buenos Días

http://www.subirimagenes.net/i/130816033821242522.jpg

Tengo este archivo de excel, adjunto imagen para hacerme entender en la celda E5 el usuario puede seleccionar una de las hojas que se ven en la parte de abajo sea CGM, CNTV, CRC etc o cualquiera de ellas, en las otras celdas como lo son la E9, E11, E13, E19, E21, se ingresa la información necesaria para alimentar la base de datos, cuando esta información se agrega a una hoja fija yo uso el siguiente código:

Sub Ingresar()
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
Sheets("Ingresar").Select
Range("E5").Select
Selection.Copy
Sheets("BaseDatos").Select
k = Range("B" & Cells.Rows.Count).End(xlUp).Row + 1
Range("B" & k).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Range("B6").Select
Sheets("Ingresar").Select
Range("E7").Select
Selection.Copy
Sheets("BaseDatos").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
Sheets("Ingresar").Select
Range("E9").Select
Selection.Copy
Sheets("BaseDatos").Select
k = Range("D" & Cells.Rows.Count).End(xlUp).Row + 1
Range("D" & k).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Ingresar").Select
Range("E11").Select
Selection.Copy
Sheets("BaseDatos").Select
k = Range("E" & Cells.Rows.Count).End(xlUp).Row + 1
Range("E" & k).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Ingresar").Select
Range("E13").Select
Selection.Copy
Sheets("BaseDatos").Select
k = Range("F" & Cells.Rows.Count).End(xlUp).Row + 1
Range("F" & k).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Ingresar").Select
Range("E15").Select
Selection.Copy
Sheets("BaseDatos").Select
k = Range("G" & Cells.Rows.Count).End(xlUp).Row + 1
Range("G" & k).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub

mi duda actual es como hago para q me haga esto mismo pero en la hoja que el usuario elija en la celda E5.

Gracias de antemano y espero haberme hecho entender.