Modificar y Buscar filas al seleccionar un texbox o combobox desde un formulario

Tengo un formulario donde guardo elimino y busco en la base de datos pero me crea error al modificar la fila este es mi código.

Private Sub BtnModificar_Click()

Dim Rango As String

Rango = ActiveCell.Address

ActiveCell.Offset(1, 0).Select

Selection.EntireRow.Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range(Rango).Select

End Sub

Al momento que selecciono la fila por combobox me indica error Gracias por su atención