Copiar una filas de la base de datos a otra hoja usando un combobox

hola, pueden ayudarme e buscado el código más que no me queda, tengo una base de datos llamada "DATA-BASE" y en la hoja principal "MAIN" se encuentra un formulario para imprimir, lo que quiero es que cuando mi base de datos este llena, y ejecute el formulario imprimir se salga un combobox que tome como referencia una columna "B", y con esa referencia copie toda la fila y la pegue en otra hoja llamada "FORMAT", que es una hoja para imprimir lo cual la información es la misma que en la base de datos pero en diferente celdas, tengo la idea mas no el código de hecho tengo el código para el combobox pero me hace falta el código para que se ejecute con un botón todo lo que les mencione podrían ayudarme!!!

Cnew=combobox

Private Sub Cnew_Enter()
Application.ScreenUpdating = False
Cnew.Clear
Sheets("DATA-BASE").Select
Range("B7").Select
Do While Not IsEmpty(ActiveCell)
Cnew.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Cnew = CommandButton1
Worksheets("DATA-BASE").Activate
Range("B6").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
Sheets("DATA-BASE").Select
ActiveCell("B").Copy
Sheets("FORMAT").Select
Range("D7:F7").Paste
Sheets("DATA-BASE").Select
Range("C & ").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FORMAT").Select
Range("D10:F10").Paste
Sheets("DATA-BASE").Select
Range("D & ").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FORMAT").Select
Range("J7").Paste
Sheets("DATA-BASE").Select
Range("E7 &").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FORMAT").Select
Range("J8").Paste
Sheets("DATA-BASE").Select
Range("F7 &").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FORMAT").Select
Range("J9").Paste
Sheets("DATA-BASE").Select
Range("G7 &").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FORMAT").Select
Range("J10").Paste
Sheets("DATA-BASE").Select
Range("H7 &").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FORMAT").Select
Range("J11").Paste
Sheets("DATA-BASE").Select
Range("I7 &").Select
Application.CutCopyMode = False
Selection.Copy
..........................

lo que hice es copiar con una macro pero no esta asiendo lo que quiero por que se ejecuta una sola vez!!!!