Buscar una celda a través de un dato de un combobox

Tengo un combobox incrustado en la hoja "cotizaciones", el cual me despliega el nombre de todos los clientes que tengo ingresados en la hoja "clientes".

Si selecciono un nombre del combobox, este se pega en la ultima celda vacía de la columna DE, la idea es que también se pegue otro lado en la columna E que aparece en la hoja "clientes". Espero que me puedan ayudar, este es mi código el cual arroja un error: "Next sin for", por el segundo for. Saludos.

Dim ultimafila As Long
Dim codigo As Range
Dim cliente As Range

_____________________________________________________________________
Private Sub cotizacion_Click()
ultimafila = Range("C65536").End(xlUp).Row
ultimafila = ultimafila + 1
Cells(ultimafila, 3).Select
End Sub

____________________________________________________________________
Private Sub ComboBox1_Click()
Dim pos As Integer
Set h = Sheets("CLIENTES")
For i = 7 To h.Range("B" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem h.Cells(i, "B")
Next
Cells(ultimafila, 4).Value = ComboBox1.Value
cliente = Cells(ultimafila, 4).Value
Set h = Sheets("CLIENTES")
For i = 7 To h.Range("B" & Rows.Count).End(xlUp).Row
If cliente = Cells(i, "B").Value Then
codigo = Cells(i, "D").Value
End
Next
Cells(ultimafila, 5).Value = codigo
End Sub