Lo que encuentra en una hoja pasar a otra con algunos datos aumentados

Todo lo que encuentra en la hoja BDGENERAL lo quiero pasar a otra hoja llamada BDNUEVO ya con algunos campos agregados

Sub cargadni()

ComboBox1. Clear
Sheets("BDGENERAL"). Activate
Range("D4").Select
For i = 1 To 100
If ActiveCell.Offset(i, 0).Value <> "" Then
ComboBox1.AddItem ActiveCell.Offset(i, 0).Value
End If
Next
End Sub
Sub carganombre()
ComboBox2.Clear
Sheets("BDGENERAL").Activate
Range("A4").Select
For i = 1 To 100
If ActiveCell.Offset(i, 0).Value <> "" Then
ComboBox2.AddItem ActiveCell.Offset(i, 0).Value
End If
Next
End Sub