Hector

Dante Amor respondió: Prueba con la siguiente macro Sub columna() 'por.dam For i = 1 To Range("G" & Rows.Count).End(xlUp).Row Range("E" & i) = Right(Range("G" & i), Len(Range("G" & i)) - InStr(1, Range("G" & i), " ")) Next End Sub Saludos.Dam

Dante Amor respondió: La macro sería así Sub hallar() 'por.dam Range("E5") = Right(Range("G5"), Len(Range("G5")) - InStr(1, Range("G5"), " ")) End Sub Saludos.Dam Si es lo que necesitas.