Necesito saber como realizar le función mid con la función range

Necesito separar el nro de rut con el dv utilizando la funicion mid y range ejemplo

Range("Ad" & (i + j)).Value = Mid(Range("bd" & i).Value, 1, Len(Range("Bd" & i).Value - 2))Range("Ad" & (i + j)).Value = Mid(Range("bd" & i).Value, 1, Len(Range("Bd" & i).Value - 2)) donde bd es donde esta el nro rut.